(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    798026,      16654]
NotebookOptionsPosition[    765229,      15746]
NotebookOutlinePosition[    765668,      15765]
CellTagsIndexPosition[    765625,      15762]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Linkage geometry", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, 3.469451011535277*^9, {3.469451110120501*^9, 
   3.469451116336855*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], ";"}],
  FormatType->StandardForm,
  FontSize->12]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469963650598624*^9, 3.469963685171376*^9, 
  3.469965089289343*^9}],

Cell["KT defined from output as a function of input", "Text",
 CellChangeTimes->{{3.4699631048050003`*^9, 3.469963115440797*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ldb", "[", "\[Theta]_", "]"}], ":=", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["L2", "2"], "+", 
    SuperscriptBox["L1", "2"], "-", 
    RowBox[{"2", " ", "L1", " ", "L2", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CurlyPhi]", "[", "\[Theta]_", "]"}], ":=", 
  RowBox[{"ArcCos", "[", 
   FractionBox[
    RowBox[{
     SuperscriptBox["L3", "2"], "+", 
     SuperscriptBox["L4", "2"], " ", "-", 
     SuperscriptBox[
      RowBox[{"Ldb", "[", "\[Theta]", "]"}], "2"]}], 
    RowBox[{"2", " ", "L3", " ", "L4"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.469963129809284*^9, 3.469963263507752*^9}, {
  3.4699636731368313`*^9, 3.469963677327216*^9}, {3.4699650824305487`*^9, 
  3.4699651203582582`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CurlyPhi]", "'"}], "[", "\[Theta]", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469963592436421*^9, 3.46996359819658*^9}, {
  3.4699647011992064`*^9, 3.469964707125894*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.469963650829186*^9, 3.469963685325251*^9, 
  3.469964714373797*^9, 3.4699650894076567`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CurlyPhi]", "'"}], "[", 
   RowBox[{"\[Pi]", "/", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469963619851233*^9, 3.469963639069428*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"L1", " ", "L2"}], 
  RowBox[{"L3", " ", "L4", " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["L1", "2"], "+", 
         SuperscriptBox["L2", "2"], "-", 
         SuperscriptBox["L3", "2"], "-", 
         SuperscriptBox["L4", "2"]}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox["L3", "2"], " ", 
       SuperscriptBox["L4", "2"]}]]}]]}]]], "Output",
 CellChangeTimes->{3.4699636515573606`*^9, 3.469963686128584*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], ";"}],
  FormatType->StandardForm,
  FontSize->12]], "Input"],

Cell["Input angle as a function of output angle", "Text",
 CellChangeTimes->{{3.4694512940504*^9, 3.469451302385456*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "\[CurlyPhi]_", "]"}], ":=", " ", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["L3", "2"], "+", 
    SuperscriptBox["L4", "2"], "-", 
    RowBox[{"2", " ", "L3", " ", "L4", " ", 
     RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}]]}]], "Input",
 CellChangeTimes->{{3.468875159861183*^9, 3.468875190768778*^9}, {
  3.468875222807405*^9, 3.468875255225543*^9}, {3.468875388961007*^9, 
  3.4688754080422*^9}, {3.468875474798994*^9, 3.468875504381837*^9}, {
  3.468875676258224*^9, 3.468875676463942*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "\[CurlyPhi]_", "]"}], ":=", 
  RowBox[{"ArcCos", "[", 
   FractionBox[
    RowBox[{
     SuperscriptBox["L2", "2"], "+", 
     SuperscriptBox["L1", "2"], " ", "-", 
     SuperscriptBox[
      RowBox[{"L", "[", "\[CurlyPhi]", "]"}], "2"]}], 
    RowBox[{"2", " ", "L1", " ", "L2"}]], "]"}]}]], "Input",
 CellChangeTimes->{{3.468875267635433*^9, 3.468875327389202*^9}, {
  3.468875416883675*^9, 3.468875419202394*^9}, {3.468875511715271*^9, 
  3.468875535552972*^9}, {3.4688755878836184`*^9, 3.468875600660446*^9}, {
  3.468875678457074*^9, 3.4688756786321077`*^9}}],

Cell["\<\
KT is equal to the ratio of output angle change to input angle change \
\>", "Text",
 CellChangeTimes->{{3.469451450340621*^9, 3.469451546461952*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"KT", "[", "\[CurlyPhi]_", "]"}], ":=", 
  RowBox[{"1", "/", 
   RowBox[{
    RowBox[{"\[Theta]", "'"}], "[", "\[CurlyPhi]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4688756399148197`*^9, 3.468875657559906*^9}, {
  3.468875704714861*^9, 3.4688757182339067`*^9}, {3.468875864339601*^9, 
  3.468875884528388*^9}, {3.46945135731707*^9, 3.4694514098635798`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"KT", "[", "\[CurlyPhi]", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469451397824538*^9, 3.4694514251759567`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"L1", " ", "L2", " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["L1", "2"], "+", 
         SuperscriptBox["L2", "2"], "-", 
         SuperscriptBox["L3", "2"], "-", 
         SuperscriptBox["L4", "2"], "+", 
         RowBox[{"2", " ", "L3", " ", "L4", " ", 
          RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox["L1", "2"], " ", 
       SuperscriptBox["L2", "2"]}]]}]], " ", 
   RowBox[{"Csc", "[", "\[CurlyPhi]", "]"}]}], 
  RowBox[{"L3", " ", "L4"}]]], "Output",
 CellChangeTimes->{{3.469451399738834*^9, 3.469451425748104*^9}, 
   3.469451824097301*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"KT", "[", 
   RowBox[{"\[Pi]", "/", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469451563245071*^9, 3.469451564679365*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"L1", " ", "L2", " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["L1", "2"], "+", 
         SuperscriptBox["L2", "2"], "-", 
         SuperscriptBox["L3", "2"], "-", 
         SuperscriptBox["L4", "2"]}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox["L1", "2"], " ", 
       SuperscriptBox["L2", "2"]}]]}]]}], 
  RowBox[{"L3", " ", "L4"}]]], "Output",
 CellChangeTimes->{3.469451565709178*^9, 3.4694518245265923`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".2"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".1"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.469451622873701*^9, 3.4694517282612057`*^9}, {
  3.469451956630506*^9, 3.469451958076563*^9}, {3.4694519998855963`*^9, 
  3.469452109414011*^9}, {3.4694521952925777`*^9, 3.4694521954426126`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwd1Hc8le//B3Dkc859jEoho8yGEAoh9L5CRRokymqohEpoKKtUopSMkmSX
kTKz6lgJkZOvOGQ0JBrqPva5rfhd5/fX9Xg+Htd+v65L0eXM3uMCfHx8i/j5
+Hjtgiqh5u+63puzmh/GF4qRsOp3paFczB4orPzO4Xk6X/NYV/QhCH3L/PMC
u4AL7WK5JyD2vWJUMfaAuNtkSfQZmEiT+FqKfVu6QTSXeRYO0B+0v8LOUHFK
5sv1BfGs9HOV2NV6w1o2Kf6grLClvAa7e9v1mvToyyA76fb8LW89VRHVgJpg
0M9YvvU9duiGDp905jWwj3C80YYtvimF2VwUArP8q7y6sVO3eAhO5oSCKboo
0IetYaGzSzHzJoyf32c8iM20mru/IyUcfCvKFMaw2w9Fr0mMvgtVdyW+0Zbg
82hr6H+vi4QbY8KVYti+ejGffGuiYKXsDdMV2ILgvCqVGQNjiXzmG7HfmdQ0
6pbdA0uYqzfFjtq2xvNd0X1o0vLjWGPL7R4pGct5APn1PzZ6Yfdb2zmGZceB
jxx7/xXsZ7bM+eWZD0FinYFiFLa+c4j5tpRHMCJ8NKcIe+8p6e646GTgLJvL
XrCUBBF9qIrdngKCQ96LpLGHX3qLfatLAejeuVwTu6Sio/h8TSrEgYamM7Zp
XcpcEvMxXArZb/Aae/X2NqvfBk8guaK8twdbqPG/x9plT6Cp9awWhd3C8tje
UJQOQwlNDZriJDizdSJHcjKBRTZ+ysJGdif6DNWz4HqTa30D9srOhzo3srMg
uNzwwG/swZ65TpnMp7An7vI5dQl8f98bFM1SnsHdS/S7r7CjRp1exEbnQZJi
kjlXkoQ7EvFG1aL5wBfEt2vlMhJaC0Lkdffmg9OyJkkbbMdBpwG5nnwQmLsy
XYjt6SjsPfq3ALQYNfwBUiTcM3YLe7i4CCb3djO0ZUjo6rI5udC2CDaalB85
jS13AXZfe1gE/cSjoCzszFxJ8dNKxXCxU4uuKEvCK/m6ZKRTAhZa/Xtll5Pw
lV+p9Of+MghP2vVeRw6fL0k03imhDJ5dNfb2x3bbNBXwobcMyn+ld9Vgj/q0
mDDdX4LuayZlI4/z0R/UHOH/CuR/c09cViBBtb5nQDe5HN5Z6SyeUSLBsG6H
kMnZaqjVFdYLUSFhMTvjf3ox1XCru1HgC3Z/n8D9dS+qYbtOzkW9tSRE8DHl
pceqge36yuUvdp+hmu6wz2uYdWnXOKhGQlih8OEknxo4bktLOqJBQkcyq3ja
uxZKufa3f+rgfOWq+A9H1ULVkHKYrS4JVyquox8FtfDlXaF6LfbaHqOmDyO1
oHSGc+bxRhICJHN6s7zrYPel65/d9UlQvnNHeL93PQStX7tD0ogEL7/dR154
NYDH2QRR0pSEHZ5GWURkA1yfZJ4/bYb7u6gOOec1wE9h/yAOdocFLZDgNIBF
aqr36FYSjKUr45xPNkKmk9hnfnOcv7J1LXTXd5C9aVf55p0kpE+IgJMjC7Qv
XtfTsiUh6Pd0SIEfC95IKsfVYh/4/ItFi2fBrHDUA3s7/B7qah0KOlnQ1J7g
E7KfBJ97ARdodu9B5mrFg357nFftvzn5Vs3gcsI4svogCafLjkcIKLeAWu/3
txw33v9grcCv0wIEe2Jtujt+T11GhfNmLdBVecnMyYOEczNLO2ZdW0D9WFAa
6yQJfptrVlDZLTD1kcZX4knCjVq5nD8bPkCMp9a6Z+dISGn52MQ2aQUf64Tn
csEksH9ZMDJd2FDvptG/MoGEoYcqW6/5sOFOxULPKWwhS3rwoats6HPWjWlO
xPvNqZ1clsaG2HX/cv2Scf284VfYNza8zWGodqeRcHVa563H4XbYdCdQpuQp
CZoiCiEaBzugxkRv67dSEm5pcvlK7DuhIuJ33Hw7Cd5qDfer0z/BugbZGwby
HJg+ejL3s2cvzKQdem/qzQGXCjurSNc+iHDn93aq58DREXZ1dVg/XEi6t/OE
2hDc1io9k3HjB8hX6QW4Rg2BQHWp3nW/X9CQH3iYPjsEYqqWzV/jBuEY6pcy
NRwG82STx8PRf2HVbfEXu3yHYdkQa9vlUg7oir3p3sAchvi3r/gXuA/DLYFT
7g58I2C0Ysu8wrERyJPsU683GcF1WdwfeG4UZPuPrYu9PQI5WUvcin3GoOmf
HXS2jkDAF+c2tRvjYF3jWK6gMAreRvqWSfcmIEBK5ujHU6MwnWzm8ieSC277
1it9KRqFFq/4w75pFMhElgSsWTAGBtuV5j6nTsJuKbbfmp1j0LjVIAslTIHJ
pxnHIzFjkF7w0KDv2TTscNNCc1/HQEJZ3ePg0xnQ2Oh0KWn1OLTyE1ely2fB
eMmR0mHvcSgmzma0NP4DG5Nu1cOvxkFdYrGHS90c6FSGazrMjsNQBFdcu2Me
OKmNg3+2TIByaKjmGQ8+9PL2V/GGKxPQ59DTbfKTD2kJ8E1B+QSYD7RNFXvy
o91em7irpifgos9xN0mSH9XYVYwbrufC7pJHOyQvCKBPMwGRbHcucGY9AhZw
BZDoeHbI3UdcSP0YXOR5dgE6J7xFaVMjF6bdjA9fmlmAngb4TSpQXFjxL8rR
208QpQsRPSfkKPixPfwdIfgfWrleqOevGQVvVrNALvw/dHXJA71gVwo8iAxB
RQYNFVqmypLBFDQJhN0xFaahvhjF+45XKVD/5y7pKkpDK28N1DViD42sU3km
RkMmH2V3pV+j4FxPsaWuDA093+03ciCEgsDcumgLNRoy92oJLwyjIHLfgILP
Lhq6+O9gh8ZdCkpTVhq/iaIhVVJo945HFKycN/N/HUNDdl/6tqdgRzoff1l1
n4ZcDQf4uNhuMhm65Q9piJNlm5+SgOt8b41GcSoNtas4C44lUhAQqiqfWUBD
DmYfAsJTKDDx1OIP/0BDfhWHIsLTKchlWcHNNhpqPbLnWBe2rJp3YGg7DSV8
aJtcnUHB+M+CqWtdNPRu703n19jpR7RHA77R0EsXNYmxTAoI243fPUdo6PCE
v8GObAqaDY3q9orRkcidKP23uRTcKjs/s20pHV1W5fcXzqNgu27eekMJOjrc
uyhoD3a1hlKSsjQd9cXO1HVgv1AkfMcV6Mhl6rFTXz4FcXS2SqwWHcWrCaSR
hRQcbTt5u2sPHS15OXGWXUKBglV6zXtrOpJYtO3N4lIKPrG+TL62oaM10rWt
O7Ht6q2PZ+/H4wWNNtRim7/U2+x/iI7UpatG88oo0EheMLz8DB2ZZRr5+r+i
YNLjkc3hCDoaG5C/2FdBwV2/x/TLkXSkUBimK1tJwepbz5iJ0XTUIeuUaYNt
+5Sp3BNLR0+X6mS9wS782TNmm0xHO8tM5FKqKDh1bPk9y3w6khljdu54TUGv
cyJ7Yysd9beuOXOilgLf0+lhtmw6emKp+CIWe2FgjtG5DjrasET6WR22cULF
k4JuOorYTpUo1VEQ3/35nPp3OhpPkt7chb1vv5yE0jgdCdw5TNd/S0GDVbKt
qCSBhNbv8SlvxPmtHaikSxGoabTy+VdsUX11FQEZAok7vHgi8I6CvfIvp7kr
CMRYpfR+O3YP2Zrcu4pAwq29883YnFu0wRe6BNogof+npQnnb26nTa4egUoO
Cf8bwtb2iSnPMiCQn85W1kIWBRftFe4mGhNotd9AmiW2gMomndCtBHLTy9Kq
wZaoOx3kYEug8KFqVtp7Csr0i37u20+g3GMbiiqwHZ5PW+2xJ9CjxcMHOrGT
YkKVzZwJFD1r0S3STIGKS2rDuuMESgndXe6DbTTPXsJ/nkBG4/az6/9HwRcf
2YCZCwQaauwtNccO/nFkYOIigep3JWodwq5/zykdDCBQoUmhfTj2ngTCmX2d
QGaDKrd6sV0MjDIz7xFoetT4aFALBV/BOoIVS6BFh6QDo7GdtrmeH4kjED3D
1TwD284m0tQwkUDxftZjLOwdp/u/NqcT6NNBs3jJDxS8PTtVP5ZJoDeJt0AF
28xvYa5UNoEOPNePNcDeHKof4JKL14t9u98Re0PqbSluCYEmnaPUHmHnZabO
y7zE/Qu4jtnY6rklP4BJIC0ZpvFL7NXM3qKbVQTaoe0s0YEt065jvaKBQC49
f8RFWil40GOhb/KOQN2imi1S2OJ9B+VPsPD+/jYarcJeOBRG5rcQaPPhBarG
2AKMzzfNugjUK3Zmnzv25UWjXu49BDK+ZB9/FntWgn4g4jOBqs/fjwrE5iqt
X935jUDvbszHRGKfXbtN9N93AjXsU09+iD2s6Tiu+APPp5rlmIY9aBRSc3KQ
QPYJt34VYp8wjX8a+ZdAXrLDZa+w+y3yIos5BKJ5pG2qwf5i13VwfpRAqr5/
rFuwHZ05W1dOECjbNPhnB3bn0QXrLCgC3Z45ovEZu9Vr3Uz0DIFcrwm0/MLe
42vSV/qPQJHhr1U52KzA/Y2f5nFehxo3jmFbXD+Vzy/AQF4HZMcp7PpbwQ9W
CzLQf+eLXWaxTaNigyxpDCQ19eAqXxv+rx48O+5FMFBjYo2NILZxUvXO+0IM
dFNRt4OO/epJu/YrEQYSMh9iCGPrPRuU+bqQgXZ2D3NEsYsK5vkFxRgoJsMg
ZDH2+jLx3ypLGej0lUbWEuzcyrUtuyQYqBCl1Iljq9VtLvVZxkCX6yrOSGJn
NdkkPZBmIKNRxaZl2Kta3ULKZRkoPo/1UQo7rTPw1LcVDBT5p+K+NLb6jem2
EWwZrk48zyXavoYCcgyUyhefxHNThJeQMnaGhEYmz+NmR7OOYYdBUCnPQaNf
F53HnrI4zuSZSHHyDcF23bepiucVM7bbMrC13XPred5WYN7/E/tJdCWb55aD
dZaT2FSCRCfPDiImLwh5Btqa6dDD85kThlfXYncwc7/xHLdCQ+Ekdn1/EMmz
UlN2qD82xdk6zPPzi2uGwrFXTk2P8vy6TaHyObaPqOYkz4M3lzpxsD/qVvHL
YJ/Ti3wzhz0A3AU8z/WLqC1SYCCOhSyN56WINq2JPeKsKcRzEnn1CML+e0JO
hGeVR/MNVtjfvWdEeTbiTj7wxn4dclmM5/rH5+eDsbPvrl7Ks5X1qGs09u2H
THGejz//o/sC2ywnbxnPw/ZuiW+wpUoXSvPsRx8QZGP/rHaU4TnC5UvbOPYF
dtVyntMqPqZJKDLQ6M8eOZ5LpT54b8R2mMlT4Jl19h3aj52z0EiJ597mN4su
Yv9VvKLMMxFSkvMSW91caxXP6w2fWs5gy3pW/7//D+xYLJk=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV1Hk01VsUB3BT9/4I5UnvUYZmGZLwIrRPyJCEDA1IqWRKhkoZGjxTKslM
mZIxROYhSRSRhDxDIqF45BquDMXb96+zPmudtfc+a3332WBz4fBZDjY2Njo7
Gxvr5HzB0/xVyXVv+EON9RfKGLBlpEpVLNwQbnz0kGN5IU/uTFeYNTTKrbVn
OX8WPgrkngO2dNEGlofW2M0Vh12AUoUQQxf0HeF6vtwKdwhrPPeL5TRJy0S2
XA/YcyrrvSu6ejdjp0mSF5wcNGtwQ3dr+9Wkhl2H2n0OI+6sflK8Ut41N2H7
6W9yl9CBuzrcUiv+gVNy7x5eRq/Zk1TRXOgPGsHrdl5BJ+9z4JrLCYQ809aR
q+gdeooGG9JvQZTTZIMXusJoKfJA0m34nn2lxQf90TpsW3zYPfjI+cLIl/Ue
hR3KX+tC4dZLn7d+aI/d4Z88au5DLzPFIRDNBVZbkivCYXFii9hd9FuNmgal
0giQ2X9TPhR9X3ub89vCSHgjp+kYjhY7NFk8nRMN7q/mjePQg8bmFkFZMaA0
OL4Uj35iVrG8Pj0WGm7ptCajla38dbWTHoDCLqmxTPRhJ+HumLBEWLGQMlaB
5lWGF1E6STB9pKKpGs0ocxX4UpcEFreV2urQxc87ii7VJEPGgJFJC1qzLmkp
oSIF+Kr+lPiG3qrTZjSi8hgO6uxRGEfzNKxIUSh9DKoqlU7T6JYmB536wlQI
sft0mK2cAVbtiqGTOemg1HD9v3VoYn5uQFUmAz7cuCe/Cb25M1YxICsDVngs
xEuhR3uWOkXSM2HhQ9+ICtrja/0GraQnsPHGvwbH0fenLAuiwp7C0uLo/kfo
u0JxatV8edDeavEqG92a7y+udDgPhhvbz5egLUYth8R68oBDs0fvHdrZYqXr
1Fg+NCiKiS2iI9TtgmJXF8IL3ZC/rSsY0NVl4shvVgjqp7j8nNBil+HQP7GF
0K7munQVnZ67ds35jUWw64iUZyS6XLwukSgWg+fo7J1mdB/7xpJvR0ohtb5V
TK8S35fAF2f5sBQkCoVVj6Ht9sx7f+gvhdDpfX726Cm3Fo0K+zLI8NsZH4zm
GrzWHOJVDlmZFiPNaKnXPUNKiZUgERw8Yv2cAap1B3g03Kvh6Bovn5QqBqxu
T3u/O7wathWue1mCHhzgiJQtqIat/jnSTegQtgpx4elq4NNNuMRED6hKKzHc
XsIhv4BPei8YEPRs5ckEtxoIujA/M4/uSGwqWnCtBXdTmpbHS8xXrqQX434t
yIpdtAlF33juR4bza0GsLDY9E729R63xw2QtNDpypX1Ce6/N6c9wrYMyC3F3
rRoGbLp7d+UR19dwkyQcXPeKAS6eh04VuNQDr0HZ+FAtAw44q2VQofUgtddY
l7MO79tITVg9rQd9jd43EugOPZoP9aMeHGPrlSzR6sJVMVaODaDim9PUjuYp
lW2h274Fub+fDja9ZkAqkxcsLZpwbxayO+sZcG1kwT/fswm4Lt9LXkAf7f3e
RItrggrJpvL1DbgPdbXH8zubQPObvMUptFuE92Wa+TsoVrc1GUMThbGcPKNm
KFm3RZy7kQHnS8+GcGxqgYxsLoET71j/g7EEu2ILuC3UdQeiGV1qz5a1WkCy
ad/7fPTFRcGOX7YtsHXzcWVaMwM899aI/sxqgc2zj3ny0QG1Yjn/7foANhHG
2fwtDEhq+bexXaMVhi3L60daGdD+XY873aYdlL19r4t1MWAiVnL/P27tMBf5
5qghmkefftPatx2siyzNb6BJTu3cn4/aYSW3XdUA+okrfA/60g7Tt2L3ZXYz
wHdB8Y3DyY/wwEFQQP0TA+R4Jfx3nOgAyRiFsut9DAiWm2UrPtYJpl+FDroM
M8BVuj6yOvUT3JxfWWT5E//T0465vc79cLKiT86OZxJsnpsbhdoOQHH8rjYi
NgmnJ9urq4MGwc1X/P2E0iTc2VlyIS1gGBaCuZ3mDCaBo7pkt5/nd+g2lePf
c24SBKT0m/tiRkE4b3ulrd8k6CZqpDDCxsCeP3/79uRJ+HOiSft6yQ/op1T2
976chLg35eyc9gyYDxpXtvo6CWqi+5YlzkzCnvIh3mLOKZDuXz3oc3EKxK7q
7uzcNgU5GX/YFblNQ3baLgH7A1Pg/dmqTTpgBnwFM/3jXabAVU1ZPyGCCXX5
2polUVOwkKhl81/oLHxxLTqfUj4FLS5xJz0e/QSh6Q1sHV+mQEVn41Jv8hx8
SgkY8aNNQ8N+lQzycB7Enz7Id5KahtT8WJWBJwvgEBr3U9J4GoQ2yTicyFyE
u/scmmcvTkMrO+UrXPkLWmVH9NUfTEMR5Z7W0vAbqtd/CJeongYZodUONnVL
IGh+SaDhyzRMhMyuUehYhvryq5dMV8zApsBAuQsObIQnt7HMe8sMDBzv6db4
xkZ0vff7MjRnQHeobb7ImZ1YBmY6Zp6egStuZ+3WjrOTx90D/CPXZ+BQ8YMD
ay9zEGP1y/pTD2fgxy8Hb85ZDvKH+Jsqj+IZSP73ZqGzOyfRG9PS+v5uBhbs
1E9eXeQkNS7jq64MzYDo7/sWrp5c5POWUdnk+RkY1rn9luJaQQzu6BvY8jHh
1VbcvdsriESeS3GyGBMcqDSuDdw0ciTsoX+BDBMaOYLuaq6kkbWdMgpjaJnf
9mtt+Wjkmsmpis2yTJiYlJV8IkAj65wzLCLRF3uK9JVEaCTg4IGeizuY4JNb
F6YnTSNxJ563yexkQqjpkISbAY0E5gyG3lBgQknSZvVX92lk3lfrRrEKEzYv
a3m9DKeRZBuJuAF0qNXZsheRNOLFVhDGv4cJdiJpSpWx2P/xlLgtWiRi246i
ZBopV4rOElRlgneglHh6Po287zp6zU6NCRrOO9lvf6CRV5yqq+b3MiG3yQhu
tdHIZw6jRQlgwjppV5/AjzSysbKlThc98y1//p8uGmH35J2NRqeeUpjy/kIj
6uZyrxQJEyizv786T2I9kz38dvuY0KyqVndYgE5iNQOOFmkyIbj00qK2IJ3I
P/Q/3onWUXoqrypEJ3M3llQX0dU7NiZsEqYTdzezeKLFhIINlMeMBJ3E/Tjd
1YCOobdLRu2kE812O6WO/Uw43eZ4p8uQTs74x7l06DBBwii15p0xnSitOXiC
if7U9HnupQmdRCftlV6jywTz18Zns47QSZ1Qv40xWrds914vazq5HjKs+xa9
I5GTsf4CnRicjflRpMeEOYcHJidD6CTnTnLkRX0m3PNMoV8PpZPVbVK599Fb
g59UxIfRCTDGE3PRZpkVm3qi6CTAWmTVd/Szbz3TZol0EuXcte7YQSY4nVkf
oZ9HJ4Eap8cVDJjQbxXf/ncrnawxrjrTdIgJHudTg8za6eSg4dbkQTS/T47a
xQ466TUPK/6FVn/4/HF+N50onndxkjFkQlx370WZr3QylivCFYw2PSImtHGG
Tlqt+76oGzGh3ijRjG8tRWw/2RsEGWN+a4eq6H9RZK2qt1Ucmk9ZRpJDhCJm
UZf1s9GHxcsWZkUpEmEs/vI9ume8NbF/Czpni6DQYSb8CKaNFihRZGfZLuNY
dOjSQZPc3RSpDzwMmWgFt/DKDBWKrLDXX1mGvnJM4l68OkUKR2vVOtEcknsU
A/dTRIP+YoWQCROE6s5fO25Gkf6CtXJB6FLlwm+mRyhi6HR6IRJ9PHvByPAY
RV7t8E5JQSeEB27SsqKI8wf+e1VoSZvketmzFDnOTGmcQqstt//Bfokioxsm
ukxNmfDZbZ334mWKhBxNu3kSfXP41BDzCkUS3MToTujX736UjHpT5FjDoSe+
aMOHlFW7H0WoooSjuWgbFbX09Aic19RDexndB8YhTVEUWeleHcFtxgRLbdtL
kzEU6b5bUy6INjcJ1VSNp8iY8MTdbegD5wf7mlMpcqv5XyMD9Bv3+dfT6RT5
/rvD0hyt5cmf+1cWRVrlg4k1em+gsrdNLkWErXjuuaB3Jd/5a7YY6+vb6N5H
P01PXhYpo0jXn1MCsWiZ3OJhqKBIVbR8QRJ6a0V/4a0XFHGtfO79FC3yUdFY
tJ4iNKff0o3o6B49ZY23FLkR/fvZB/SagRPi55ooIvYuU6ATzT8RNJ7XQhGX
Ai7zQTQHd+8trS6K6AWWLSygr6+acrHvoYgb7ypgM2fCLyH60ZBeijBi+CxW
oGc3ym/t/EKRP65wiaxCu2/X5vv9lSKHt/+qFEQz5CxmNgxjv8QHu/9Cj6r5
1ziOUkTnWUuBBPqcZlxm6BhFxF+dLdqMHtR7Glr0gyI+15NDJNGfzbtOLE9R
5PLSyno5tIXVj/2bmTiv3h5JBXTnaU5ZvZ8UyTLiP/k3utVFdjFsEfP9Ms1c
DW3ooTFQ8hvzWe8gBOgmnyMNn5Ypcqmu7ck+tJ6fUx47Bzd5F/JFWAv9Ovhm
9FYubtK8GG6tjda8H3VNn8ZNuodHvXXR1dFPzrpQ3GRUZtj1AFo9ofpgJA83
icrx33sQXf74o0I5LzcR1G8YMEDvfjIq0sfPTeRH804Yogvzl9m5BLiJtZva
MyO0fOmaEUlBbvLonWOvMTq3anuLgRD6+97+w2jpur0lbn+inxWVm6AzGk0S
ooW5yTXRFidT9JZWO//KddzkmWjILMuPOn2cvohyE7OsiSNmaJmAhbZJ9K48
leMsFyt4qHKI4bxenpYsN4a48GxCz9r0n2R5Rut0xhn06ovq9ixfm+pbdQm9
PU3dkWUqydLDH/02XvE8y6KLZtpp6ORemivL2vm6g9/QGYlqV1huOVGnP4f+
9XvqKsvHeTUKKHFu0rEhyYvlC+dUfbejN5Z/vsZyjOgOCUf0KtlxP5Y3NmYF
eqEflBwLYDn7yraJ2+in9OeBLL9sk6jKRjvOnQtmefSWoOUPtPJ6w3ssLw3y
Sq+S4CY6hrfvsyxIaAtyaLeYR+EsSz5YrjdCl/6MiGRZbXYu2hUtct4mmmUj
4ynbMHTkHE8sy2ez/1MqQMvGhcSx7Ekf4mpH9xmPP2A5xOZz2ww6R3xbPMv9
za9WXdmAeVGIT2JZXjVTfxHdmlmbzPL/uKrrLA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.9},
  DisplayFunction->Identity,
  PlotRange->
   NCache[{{0, Pi}, {0.9084103602931082, 1.489038608043194}}, {{
     0, 3.141592653589793}, {0.9084103602931082, 1.489038608043194}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.469452056167449*^9, 3.4694521102507753`*^9}, 
   3.469452196155044*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"KT", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".2"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"KT", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".1"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.469451756700021*^9, 3.469451772741238*^9}, {
  3.469452130710449*^9, 3.469452199618681*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJw12nc4lf/7AHD7KMfeMzNlr0jhvonMykjjk1QihayszKSQIoSkYUQ0JCGa
toRkJSMZScge59h+z/eP3z/nXK/rec77ed/vdd/PdR0JBw9rJzoaGhpm4uN/
366sDEet+j8Ch9kR6kdvbbTM273+s+oTDDXEdk2/2Y17a822GlyqgOXWgAD1
bVrI0fHkm9adCij41p3KNq+Jw0N0yYpFFfAlKzf6zmdNjKN5v01wvgKCJ/Q7
bnpr4tBe+V0z3pXAd4zC1v5tF0a/Zjn9yLsKfr0+L7aQrYEnK51lkhKrwPSU
uuGvcA1Ua6kev/G6CngM3ET1T2ngz8kgX9+5KtAPpDvlLKyByjsnYiy8q0HI
iK2ckqqOnelNJSteNSAxQXY6nKuGz1/uCJpJqIGKto3YLzFqeOXjNRwprAFW
Tf+4u+5quLNXp7F1tgZ2tmm919JSw2C+/IE8r1oY0V3/z75JFaViY1mOetXB
A1G196yMqrh0f6zFIqEOLovvJDlOqmDTM6MUg8I6MErRSlv/roJ+9eviSrN1
MDFAVaHkqmADvbsmo9dnYNZZK+g/qIKegQfPFHnWQ0nqq2mfQ8po5q6Txxxf
D2xUfb0zO5RRykFu+mRBPQTK8fQW0ipjpylTCPNUPSgWlvIFliihruCn1JOu
X2C3/62WUAkl3Fqm2EI61wDDTiX7VLcq4vBzYf6T1xug6ML+i+WjCvgpfYv9
6+wGcLAv2P/wswJ6Rf35Z/e7AT6v1b/cF6mAXUcekl6fboTbFZbzoiQFzFkk
g92JJlD+8CNUgU8eQ8dWrhcGNgHZ8X23zrIcHusbbWJKawIN9523Y3/KIbm2
5r/CriYwU/1bNfFYDr2Tgv2YjnwFakqR5K1dcojqE/mvLJthJeymbN7ZnXix
zCmOTqoFeLuvkctGZFHJ1EqcVqMFJqKn/6Q0y+JMt87rTcMWEFSMk3n6RhZ9
Vrk71861QIqk9zGnKFkM1KsSpT5rAV2VnCx5eVmMrBHL/6fWCoNTaxaeQdsx
o+VHY4dBGyzJyx49sFcGHc5Un2y3aYPA+yqscTtkUGru5XSrYxsIeIeazPHK
4BPuSO5vkW1Qa0JfLzUrjflHNE58aWgDL+HGKPGn0vjuZ/z4R+t28HI8u1dt
mzR2jJpuyXXogHL15qQQCSmcvrfDKMK7AwJ/2L2N4pbCreak8FNXO+AStUsm
j1EKMb9miT+rAyT+yW2RH5fE514wGj3YARdWrULUiyXx6orGZ5fT3yFG8a+0
jIUkKpPFryvZd4Lcn4eZR2Mk0OzjRsVW905oZNxT0xoqgY7ufWsjIZ1QfCm/
3u6SBKa1pPmkP+yE+K3iY9l2EsiUzOvI0dcJUu1j75eVJfCnKMu+uRM/QNfe
ODi1WxxjlCk0b453QWTxVHubljgG+pvKj7h0AQe5qdpOURwvlD+w5QvuApqY
Pi6KpDiaHNr3zO9RF5z7vnDgCJs4kjzibbR+d4G8w/3YO43b8NpLuSdlbt2g
L5WaVaO0DUMVT5m/D+uBTIkbWQpbxNDd97Xvv/ge8HEK+5hLFcWTHxkzhLN6
QPty4Ns9I6Koc+DFQlBNDxwyrn2QWy2Kq27LD3W29MKMnZx0apgoBry4M/Mx
sRdUkvMNXq6KoJd8fXJFzk8wkbUKS6IXwWGn4SsZb36CR/ivoc0FYTySQeN2
5fNPaIpauBoyIox7eLUNcOwnUO/uX375RRjpNp9OlSv0gap8kPXfeGFMbLtp
XF7UB+W6l/COpDC+vnxo+WPlL3iTGrDIaS2E0sWuww/bfsFuTlH9W0ZCmDIV
9S3k9y9gLV6z4NUWwsCzFTm6jP0wa+JuZCMuhAYHVK0/mvRD+ekA6eBpQWwX
537+4Vs/OGulpV2MF8SVs64v+9wH4LaTDUn7pwCe5pwP+OA3ABsGAs+F2gSw
9lPgvvuhA+D4/ssPpnoBjBeM6ToWNwBPBYTjN4oEUPZbHl1H/gBMnqnpv3BL
AA/vGTnSMDEAg/WfPKRAAF9ynNl84zIIQRWmZtXP+ZHn0+iXZO9BaNLvJPVm
8eNlV88kn8BB8P1gnLl6jx8N68J2qsUMwmF+191Ho/mxN+iRTf7TQbj/3PKV
nxM/Mv/tzX08Ogg2J2W+WUjwo8PHI5bx54bA928G+9Z0PlR7I8Al6DEE01TL
wZAUPqQr6GnP9B+CSyrXY1Zi+TArw/5oUfQQ9DOsqbGF8OFQxDn7zmdDsLAW
F/vwBB86mPm5iUwPwTBd5l5rIcI/kqPz/H+DdmiEft1DXjw721FRET0MB67f
SX3+jgdPB8YfLYsfhoQHPlaXinnQjt5iqiB1GMRWi+7jSx48wlstnJ43DB7P
fjX8y+RBE+1Cv5D6YZD1px2OuMGDSuGxCnuY/0CeQn9myXEeXOLYn1oU9Qc4
5QaVKevceEul1ONJ5Ai0jNGqfDrMjQ1qP0Z840bgskvMcOchbmTeRT1plDIC
QedpXsybceM1bS2L4ZwRCPyjdlZbnxuDDEp3SNaOQDmjE82iIje6HC4dfEj/
F+KTNnx3MnOjcUCpTfKVvyB5+O15t3IupKso1boWOAolQfnxd3Zz4TNWrifr
V0fBnP/hXx0NLrQ+4cbjf3MU5I7dph1X5sLHFPHZCw9GgS/Q0+OQLBcaKsY8
O/RpFCoV1xr283FhZJqdqDDdGMg//2Y5vMCJW31p6V/fGIOtq/r8VcWcyCln
3tyfOg5e3zkibPQ4cYSUzlmfMQ49qneG2fZy4rs/c4df5Y1DR19GT5MWJzpm
pvVeKRuHtTd5QZaqnFgmMD4q0TUOlveZbf2kOdGedIPekf8fCHGEx+xh4cQX
w3W7R5P/wc0XXwtSejjQJN3g8UziBMRvfGJXv8KBUfUtfVfvT4CiTPIpsxAO
rJu1F+DNnoD9of47HQM50MgwKFa7ZAKGQEYq3YcDDcaK/K/+mIC9C9y+ahc4
UEddxoJHZBK+DS23NVlzoMpn0qJWziSQPoYsVMlyIP900/6w0imYC3pkn/GK
HVMTys+MlU/B6ei8awwv2FFA43WwTf0UDH3IT3bLJXz57mvZ7inovat60eQR
OwrRO4i1rEyBfXliltItdhTjpy6K602DbL58yevz7LgdJHKqaqZhmoY/OVKa
HdM+v6OlvzAD1x7oU789YcOZgVeXp91mwMZJTPq/x2xovPJkttdzBvoYopT+
prPhgsKdweKAGQiJZfi+5R4bHkx0rTwXPQNhlba7vW6yId1JkfCG3Bkof+vT
W+fJhq5zITSJIzMwOba85aouG1ax+ASEjs9AbsqtZ4572FBAxmXGZWoGmkYP
L5hqsWHd0SMD+ygzcNfnYoiIKhuKf1SqWGScBUXRC3sHpdmwI6o/7LjMLMhQ
BARHyWyoI6q/Ke44C2RNPv3BX6xoYtfh7XB+FvT68r9197Li4fvOI4/dZuEY
U7Lp9y5WdBWM+7rddxaSXl9d6mhjxTTe3vsKkbMQ5f2Im1rHikusvrt3583C
8Ty9xpoCVizeyPM6NDELYy2ZjEERrFihq/MnfmYW5pyyv3+9wopNwd+OtS3M
QtsKu71UKCv+XlkE2/VZULbSTewMYEUuqgHbCbY50JFkO3XSnRU9p38+O6cy
B/GwaPLvOCvKD3AMh/jMwRExidwNNVY8+Fe8yi9gDvbTffzwVYW4f0olwyN4
DkaEa7emKxH9WbO0O3NtDuoUF81N5FhRRzChwzBpDq7Scu8vkWBFC2vOWpbi
OVDqGtZc4mBFtxrOJ/fm5+Cat6uq8CwZ4xolriVS5+BHT4Gz8jQZX7WpOtxc
nYMeFutSo0kyLgxYiYXQz4NyDU96wBgZg9cTUk5zz4Oi2G1/6iAZb2lyRcmq
z4NgdnDUsXYy5udxnS/xngfNt53KWaVkvPa9XJ/efx62fVWx6yghox3dRWGr
oHlgfvy+n7mYjFvtPjdPRMxDQbXLaMArMp5jD94lnTwP73Vzh32eklHc7w/d
ndJ5eGDl9qr3PhmT9pU99FybB8+Gs9z2V8no6unk/4lmAW7mX7LsvkJGg4dc
VmTGBRBe1/18JIyMsxQ3hjzWBZC+lml/LJiMB59JuPaLLcDHZBT18yMjM+fN
3Qf1F6Dn8nlJYVcivl8n2+UjF0B2fuEL4xEifmPdh04xC9B4YzKw6TAZ3QpF
nNPjFmDMgVU72YaMJ671rnDdXQDFRq4eBSsy7pE7LrmSuwC2q6kPfCzIuOx7
2Kv+ywK8GWtIcNpHRs9+9b10zQsQ2BxVZ2FAxlETbkadtgUwsRDY2KVPxi7h
ttSCngV46gmX2ICMZZWHKlL+LYBXWp7jjz1k9GM1Z3diXYQKlvFf9WpknPKT
637EuQjVtFzL31SJ8RvY8riLdxEsZrLI3SpkPFJUr2khtgiV1GrRWSUy7jq+
315deRE4tyZ07ZYn4svWz6e1WoQH7Q+0tkuT0Utnt/mjpEXwC5Ci8+UnI417
Utjt1EWIUOj7UMdHrJf0maIrDxaBg3REQojwM7qnImezFyErg2WkloeMQ/WC
U7LFi9CfaHtYlYuMh21X4wvbF0Hga7fPUVbieuTR2qwfi7Bve3RGNZkYj7Ki
5Tu9i3A1wNZTlfAtYTcHv9+LwDiyvMLJQsbawZ/qe+cXgYtqWDTCTEZN90+d
NVwUkEvOO/+LgYw16UIsb/goUONWXuBI2LrVD3KFKFCfNJE8QU9Gdw3lvBuS
FIiaO6FHSzh3Jf3yQTUKpL25SNWlJdpTWMsHTQq4/uRUbqUh2jt5bEhlDwVo
HMPozxEeqOAw5zaggO1kWnjSJgsKRIWLdFlR4HmbaiPDBgs+Keuz/GJLgbyl
wMHsdRbUGNe+/u44BYSaHRP3E7Y8MDf54AwFZjs4quPWWPAG99nyM14U+PYo
55jaKtGeUfm8tS8F3LMadfpXiPb8hHcYXqbAtbOxb2MJV3W3x28Pp8C9HRNB
08ssuJJu6PAvngJ7Wy+K1i2xoB5VN1E1mQJ8G95/LhMOP6hV5X+PAucy424q
E2Ze3ynJkEUBO7phzwwqC5oflrI2e0IB6bVbBScIxz0XuRr/jALcw3KNAoR5
/2MfEimiAIO6QmoqhQWPFTJznS2lAHsbg+kJwg+Y6QyevqfA6+YP37cRlixd
yNxVQ4HDVz6Gv1xkQRWenjMHv1Og+vFXkaEFFrzk2p6Q1E1c73LOKSL8pqqp
sqePAlUj3aQowrpe5RLOIxRIbzl0XJ3wlfoyq/xxCghk9hiTCddsex0+P0WB
DQ1z9r/zLGjWnD0YRqVA14N52SzCcTKPOOtWKeCnVxZwlXBr8F19Mg0VTugF
ZzoS5umI97JmoALbd1KWCeFj8jGZqcxUmF2QClQifP9qROsvMhXWTdN28hH+
1R1MK8NJhevau15tzhHxqfqpuvJSgXmonPUfYadojzOFglQYEGIy6CKc138+
gSpKBWGfDovPhCc0HSp1JamgobmkWEZYOe7EbMR2KgyfgT/PCHv/OSzRIEeF
voIA73TCb3QOWnEoUyEn/tL3ZMLLd4zDj6hTwVSBhi2OsM4/LHygRQVNh2nh
aMJXDPYMDu2lwkY912YE4ep76pw7kQpiL3VKwwkzzSroexhS4TsvGv7PZibb
vUpMqPD33UzOVcKx6dsyVy2o4MIm9fM64RaKQKu+FRVStF6MxBDmOchFG21L
mNuhNoHw0RwW1ebjVLDcJRyQRjhtjeEMjz0V9vx5uZFN+JfNRvx/DlSQlVg8
VkhY4jm1IuMcFfge1EWWE3akm50ZcaHClk9rUd/+N17Hx8UVPajQ9tjLbpDw
v1e/LS9dosKIGA3DImEl5r4rb/2JeEsiQrcS81Hy5tuA0RViPlp6/+0hvMT6
hePWNSqojrj8siWs41SFbdFUYNnt+NibcBV3SYZ9AhU+uHBlFxJmcn3Zkp1M
hX2Xo/rbCZtW5dL8u0cFnm1/J6iEWzzTTvtnUUFUbyrYiFhvcvEcqz5PqGAw
yaTiRjiiIDLZ+xkV5D4NBSQR1pzybrj4mgrPqDGNY4TjWcccXd9QgcNC4Tsf
sf7HFU5tnn9Hhdx7e3yMCD90NddwrCLWy+cD3rmEKTGVzWfqqDD1Vb61h7Dl
M60Lpxqo0Mm/s5ad2E8MY1KP/msjxidW2y2UsMu5NZLVEBWO8HUVuxP7s+a6
d9bBESrcftT27iVh0ZxRHYtxKlQauNjOEG753eFlPEeFn9XaJgHE/tc6k9+r
S7cEH3QWJe8T5weDnX2BnOQS+FV6PVYgziP7oA7THduXQJT+1+R1wqVpZsMy
cksgdMe4aYCwS7emoITaEpSMrRneJ86z1iPsEfwGS8CT4SsjRZyHj6wqjjA4
LMGlv8EZoXRkXPLUnKU9twRhsH/nLGHr+Bc3Ny8swUfLOSMn4vxl/JZaseJF
3L9tY481cV67WXjJzYYvwdkZKx5gIqO2seRGX+YShMttueG4lYwajxuiP+cs
QeJG/e1Jwkqb3tyFT5dA5YCIcACRHyRLq3dcK1yCA9a55QlE/mCRdbKRq1yC
2Ou39X+wkbGPKS/Pb2AJvirqaTznJvKrg6X66eElyFoUjbEg8lXbp6WPpqNL
EHTd02macJ2fabvIzBI03XzzQpvIbwUj4+tVm0vQNfwzbECAjOF1ijbs25bB
N6nHzF+MqBckO/uWJJeB3dqJVnUbkZ9DQ88PbV+GvIwPehOEXTS/hZQoLcNd
hd0HnSXIaPPEM++E3jLIxVpWexD5ViayaD335DJIyJG2NciR8YuRdh4+WIaP
qaMhObvJGPA5VCksYxkGtKKMs7XJuMO0pvhj9jLQry0PZhP1QKTFoco9+ctw
HZRjnuuQ0dDGqUfj0zLc/lCb34xkrDidQN45sAyQZHTJzZSMpUFjnpzSK5CW
GZlHsiPqhXUl6qEdK8ByYGgTT5KRL8wnJE5hBc7/XlYOtiejz9XNGyy7VkBr
S7Tw0mkyqt3gfcy4fwUKJ313MJ0j48sU/e/Lziuw3/+OfZAnGXMK72kPPV8B
n87O6KZIIv7VE3JdBSsg7cl8f0c0GVWMxISbi1bA7qqGdeQNMn7oylp7+34F
9m57+2r/LTK2bz4vT2hcAe88Pa3eBDLSHvxkpP9vBfbNn3lt85CMJ8eHrDLk
VuGgeWX5NaKelNTIMUhRWgXLsHO8fES9ORrirH5LbRVommmEn5YR/eec4AnY
swqNx9O0Ot6T8ebuxR+HzFahbufOSr0qMr6NJNlvXliFf/ZDF52+kZFXSsHF
/ukqDC0fZFsbJ2N84s0jT/NX4Q2DxuXxCaJepftnsFBItOeoMN0zRdRHg0+F
Y96tQqvt043KOTJOPJL9WtK4CuoG+z7krRD1hJCUCuvUKhx4Z7S7eysr+nAJ
Ud6rrQG/4fCdBgVWbKNlvir4YQ3u8xa08viz4lT+PXvLijV4qPgjLewyK275
T35vVM0aWH9+FTkRxIr4+uDCQtMaHDgd86WJeN946ZB8rqVvDVKLozlzY1jx
ZrWkedTmGozeOHqi+hErGl7X5Vk0WAd+kd+xGfWsWMJ86UnLl3UIHMzzEpNi
w5Hg8MlPX9dh+cwxzT8yxPvX7G2N/NZ1gENszC93sGFw94uqG93rYL1l4LuR
EhsaPhv5ZTC2DtfPxKrFabNhm/l//CXMG8CvHfLyqiXxvhinH33PeAPYG561
0VxhQwVeDheH2g1Q/6bx+/ofNuQueP8i58sG6EWydYqNseGKifP06NcNYNFw
vfxugg3rgz/5eHRuwPicxI/leTZ0HHYLC/67AX2tTLz36NjxYdGXpJQtm+Ak
lN7+nzg7sllHlDcc2ITu8LRLiyfZcTqOwqPeuQmZRyv39g2yo1RUlLKHCw3u
+6/AbyiYA4f+6+0x+EuDAm9LcnnFONHkT/tyiTst8vjLnL41wYkB3k7n+SZp
0UhOysy3hQujzaec90zTYi01qOhJBxfelfZ3tp+lxayNSqneLi580xl97ski
Ld69cEHqwCAXzu954ai5QYvcmRKjtnNc6E4/f/oIOx1myJV1r/Fw49mkK8dT
VOlw5NSvzCI7bjz45r4Znx8dDqlOfnahcOP5eYdN3gA6XJP2HxVb5cYIFbli
3kA6TFZfP9y5yY1lz8pEeUPpsF3zmuihLTwomf59hjuSDt+dnvt4XoQHKVHs
dzlT6LD23dd2vX08+Oh4xG/yGzocHlXpuHmHB6fWXILpKXSoZ+zr7gC8ePyY
+c5lKtGfhiLnEUNerCmS75xapkO3Pa4n3M148Z7LhHLPOh1KqMrrx9gSRUXX
xd+vGOlRWc/MY86VF+8XeZrZ89IjVwRjYdQ9XjRx8RN4q0GPvVe8CwapvJj5
I7zY/RI9ehgcoBhW8eFIrUp/nC89ton8PB3whQ8Vivu3FPjTo9ycWW1hCx++
idc9NR1EjyLqp1I0+/mwyXR5i+c1evy0VMp7Y40Pl957nvJKpkc64eHYo7v5
8WDGqa0+pfT4+5FrTVMxP66c1z19eZUev7TdvdpWJYBm7+XQd50eHwfmqso2
CuB9VgFxr016vJ7R8+NquwDqvJ7rP0/PgFbHqnYeGhbA0NXcU8dYGFDbi1qn
wySI9HFcp7SEGZDPWU3hkrkgkov+nlzcw4AnuHzjb/QKoh3jd91ZHQa0FovI
+zosiPlHq0Qn9Rjwn550m+CUIB5ce9A3bMCADX77whtohDDeyPpkhxkDqnX4
OMZtF0Kerg92Rf8xoMGdWvGnl4RQdD3hhFcgA5a6hHH68gijydCBt3eDGXBK
bKU8f5sw+nzewv8plAHfZv8Im5UTxoaE8LatEQzo1LzTK01fGP22e5lm32RA
BdXw5ksewthyyFLrxwMGvHhBJcD6qzBezWLj1i0n4k0sFdVMFMH8qAbPs5UM
yN+rtz7zSAS73CKbb1QzYKLqPd63z0VQSWvjRudnBrSUbtbzqhXB3sZJGs8W
BrRvnXwYsSyCGotNU1mDDJhNb3/ewFEUR4xvNjAzMKJalfHbckMxdDA/LS7D
xIiOh5duM9mIYd/BXX76zIwY69/TZHdGDDts+yUCyYxYtc2hSytUDKvOql/+
x8OIl8yzep+VieHDsF7ZZhlG7FCxckxT2YaHS+Wv3zFmxM2QwowXfOLY8o6m
t8CUEbOrt3v3i4mj+afvKk3mjPjY43ausKw4GtSG/WSwZMQHqbbBr7TEUaW9
Xd3vGCOy+tJHHzgujuTpoKFjFxgxxG6r59lH4li9vQnEbjJiwg6lnAAVCTSL
6zfji2VEm11anLbaEtiyOGfLdpsR3xqu391rIIG/agTdNhIZkSWpdLfsYQlc
cnBO/ZXGiC223x8HBkigQjrd7KNnjPg31zRKoloCU/i1s7Y1MKKCSa32/GlJ
FAmzyOdvIp4nmu+o6SqJj0dOlbE3M6JipDhnpK8kviqJbN5sZcSo4+XG5jGS
2GjTsdLfzYj0ztK5HsWSSBPvYZMxxohestOfNFik0IX5CYPEFiYcpQ0WOFMt
hY100bH7WJhwqWW50blFChXWL/CdY2VCn05vuvA+KZyeVdzxnJMJS+xXE/9R
pdCnt8R8lxATjmB5Uo6iNIa8rE00lWfCaa4YqdYH0hh/+I+49wEm9L0mqIw3
ZXD24OenSYeI+7surI6nyaC16VO1Uism3DG5QX75TAZ59S4artky4V4LyV8h
DTKYJrvoHGnPhKHrJC8zlu2YvcJQkObBhGcz97s3JmzH0gxp3eoEJtSXeyCk
WSyL0puGQZV3mJB/52t1kTpZjD/p9LY8mQmL6/LqxLpk8bzQk10f7jFh1n5O
58A1WRRKklUqyWTC5eIMoTv7d2BwlNy23EImXInZ73djYAcauKvQ3mxlwgOZ
zgfeKMrhyyZLuNHOhH6KVq7l++RQWN4rJOo7E9bxNxhOH5fDhb+FyxHdRP9e
clTURMphzhn1ueBBwstb9ayH5JDZVvO3+ywTXt5W5nQ0Ux6b9+rUWnOSkOtG
a/kZA0WMKfNd3c9Nwg/DBsdTTyqi8a4C1b28JBS0T3Cgv6yIFUqSj6QESbg+
typ++ZUiFkkw+y+Ik3Bi4azNgoQSppI6dqSokLC6klT/ll0Zba+xnopRIyHP
FSeFCCVl5KI1Tg7VIGHKqnjCzQPElKy8pXXeTcLKRMbTdreUMXQyvUcLSVig
kzFzg0kFz7a73uo+REKVyeR/X2JVUNwyp+qrFQlzXZ6bHU1XwZ9Nv5YqbUj4
Nf4YdWuhCh6ps3J6dpSE9Nncyn87VNDkrZZe0CkS2mbzm4aLqaJSOv2MiAcJ
aZ/eP1LyVhWXXO7bnI4j+v80SvwSjzreDnxMCosn4W7DYp4pRXXcHvP8/cNE
Ej7OWSp5aayOtk/fS/WmkDA+TjSYMVgdX//tnbdNJ34/XNG3c1Qd3RxFksxf
kfB0Vdt7l28aSO8jbeLymoRHk/22fJ/UwLQIhbXoYhKWviiTSiPvwi9ZOo51
ZSQU9RCW2mu+C7cP2mnoV5JQ38pdi/R1Fw6cfNih2UbC1vTDiQ7Dmuh/MSfa
toOE+6VP+R/aooVsIfk6Pp0kNMowri5R0kLdBx+zC3uI5/Ed2qQGamFaT5+P
wm8Sbo1gvJcquBsPHxXjlVwgoQXXlcBCL22U2GJ9XYnw///f4P8AlUbQLg==

      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJw12nk41N/3APBsMxIlS9vM2JN9XyKcY7InlKXNXihk+wjZ2mQrklCUaCFZ
KiRarFEplRCibCEk2Wds+b2/f/z+mXlez/t5n7nvc+8973OfZ0Rdffe7sa5Z
s4aX+Pjf98ov97GLtdXgOKNUucHADHc1mHHR/6sBY3/TtT42psjblvtZ81oN
qDzzOzQhboqDA6yp8qU1EOj7flZq1gQT17wU3jpTA7VLA6mv0kxwYJes+mRA
LTCblTonfxpjbMk659sBdVAcwGZ19qYROtR6bE9JrgNqU3LdZKARqjS/Hosr
qYNzG6SzhyyM8PufsFOnpuvgjJykxH52I1SUHo83D3gN6xlCjZOBhtie1VS2
6F8PZGqN0R4vAyx4JBU2ebUehuzOHRzdY4BnK6NwuLgexLja+kfkDFC6W+fD
l6l6yOKPc+WY3I3hm4r68vwbwC8nNvVi6G4UT0hYd8D/DdSmnbq5N4uOzJuj
zeZX38ATY8vNRhfp2JRvmEYvfgPyF+NcY73oGPRuRURh6g1Q/xxIHdpJx/ds
Phoc/m/heF6v8EC7PvqFWriU+r2DZ0HKynNC+mjmo5PHmfQO4q7QPQLX6qO4
q8xfh8fvgOxCvyczi9huSorgnHgH7emGf3e+R9TdWnXDwasREt1vk96GIHJV
yDeT3d9DiCZLNk8V4GABZbPDxfewVr1gQisdsCprrWPJ/ffQ7JaUXxkI6B8z
9Nv+53vQNi6890YOsNMuk1zi/AHq5a45V2XrYc4cN9gfaYIWkdl+6+u6GDm6
eLE4tAnmDBzOBATr4sEfI02kjCb4vO1zeccBXeRuqD9c3NkEHROFLgFbdTEg
JTyIZPcRSI6+xs1ZOoiq40VPrD7BjhfxKcEVu/BkhVsiq3gzPEJHp2MC2qhg
uk+ERa0ZjEdpCm8WtHDym07JqkEzON3a4ercq4WBS/zty+7NUNMoqburQAtD
9epojPxmeJ2aoBRiqIXR9UJFv1W+gMW8quqFCzsxu7njQxu9BbhrmvqYopro
6vLaodW6BTQoxvF0Hk0Un37098uxFvDb2yhfytTAXP5o/s/RLWBxePMzcrMG
FtmpHWl83wL5urweAWc18MX3pLHK/a1wpuBTO+OXOraNmK594NoGgqnGg/s/
q+HfdCnDCwFtcO5IW2FvtRpy7SGfczrfBpvbVkeinqghFtUzN99tg/MNnV2b
k9WwwB9GYvvb4EDjlexDdmp4flHtrafzVxgPfVYg9FMVFblFLio4toOnafVW
B25VNKv8V8Pl0w52LpfL0lZV8JjPj+XhiHbgsh3sHJhWwYzmjMCszHaQuR28
reSbCpJSBY/x/mgH+tV7jlJ5Kvidtm739JEOmIlxHbM2UcF4xfk1zw51wpnb
xWkvUpQxNNhUdtizEzK7Clopccp4ovqW7abwTuDjSZ1MiFBGE8vd+UG3O6F5
QkD3vrsykn2TrDV/dkJMw+7DqVrKGPVIJrfC+xu8e3TznveAEkbKO+15eaYL
Pp6349oKSuhzquTU76QuMIw/GHtQXQkdKjmyKXe7YGNCiFiOrBLq7C2cDavv
gjoOKyO3LUq45L2QqbO2G7qrxFRWBhUxpPDaZGVyN7i3HlBn2a+I/rLvUmty
vkPgs7RYC10FHHQbPJv97DsU7Pg8wCmvgHbZa7zPvv0Oyzo5Bh1UBdQW1KLj
6Hc48sTp2uNleWRdfThRLfcDrpvsvGVWKY/JLZeMq0t/wEmRRRseujyWnLZc
qKztAVVWZ9Hxg3Io8dRrMLOlB6hTRmajZnKYNhHzOeJnD6zqi+TN68hh6NGa
HF2OXuh84pyuLyqH9L3K+ytNekG4ODYidUwWW0X4C1597gUzhxP2wmdlcfGo
16MfPn1QaNIfs+mZDDpvnAl5FdQHvjcTVV7ly2BDVejum5F9sOtYhP/JLBlM
2hrfeTCxD4YHIjynY2Vwx+c81raiPlD18IyKspdBG+1hu/fjfVC54UvqSw4Z
fMTrsvrMsx+ep9vNcTtLo0DVSGNqQD8c73WIIdtJ42kvv5TA0H5QIQt1rDOX
RoM3Z6RV4vthw/fXYco7pbE77LZ10cN+KA+9HvCXVxo5f3U/uDfSDyMyVCnZ
eil0rbSzSnIfgMM+LLkWylKo8mwL31bfAch57HXn4Q4pZH3c1XoneAA27/1p
t15ICu9mOx4ojR2AfRc+vJjlksKBC+6O7fkDoP/nMkN1aAe6mgV5U/8OgKI9
L8X/JuGO1Ni84J/wX4Lqgavrd+DRqbaamthB2KJ51Y7EI4nOoUkHKpIGwYzT
WHuOQxLt2cwnHt8YBNl1n2Hs33a0E3xNycobBFGmb8rw5HY00SoOing3CB7n
Oe/t+LodFc4lyGlzDoF/wUO/htvbkclrdKM0ZggWCwPK6Brb8bJSuW9u9DCc
HRvcvRAoge9VOoZPJQ6Db5p2sr2vBHKqMxwM04aB9Ue6Y/0JCYzS0jQfzBmG
VK+DTnccJTCMXi4l1jAMB5K9LiSZSKCnTXl/JtsviAxpiASaBBqHlFunnv0F
luNDVXWN4shaU64ZFToCOQnqUlEK4pjPw5e7cn4Eog1b8s5Li+P+I94CwZdG
4L+bL6wuSojjvXmRqRO3RqBncZTj+jZxNJCPz7esGoGBrOPXfpPEMTrDnkZh
HYWE/NgXtn1iyHWKha0kbhTEoun7+dPEcKPMnk+9N8aAQ3VNsze3GA6Tsza+
yx4DPCbwKpNTDF8MTds8yRuD228vnv/CLobH7mR0n60Yg/6VPyn6K6JYsWVs
RLRzDO4bBCfsnhBFR3Ic27HNv8G+sut1U7MoFg6+2TmS+hvc75yOG7wuiiZZ
9HuTyeMwl6P9r1ReFGPeNf84f3Mcipd/BxvJiOKbKcctgvfH4ZdmzONuSVE0
NAhL0Cobh/IEL8v1IqJIHy0NPt8xDqCwjT+FTxR1VLebC1D/QOXny6+EmSKo
9JY8p5nzB04O2JZLNYjg5r9NRmfKJ2BWJM8n2V0Eb1ytdhmtnoArtoGmX46K
4Ba1knDrdxNg07JoyedC+PT1kh3fJsAze+BbxhER3MbmKtS8OAGrLDvLGqxE
UGgzY05E7y/wZDxTOrdLBCVBNKeu/i/0uMQ2RfGJYMbbFyxsJyaBERnD1X9Z
GCf7npz+6z0JHnXfkwtihdF4MXeq228SXoQGm5yOEsZZuWv9T0MmYSPbG1Wh
cGG0SPaqdY+dhCxv9a8JXsLI6kA99/7BJES7W2ey7hFGr+mINcnDk1Cj1RSs
zi2MOjT9VZFjUyCqYMXufF0ITezbAlyPT8H4esa3W9eE0Oamx/A97ynY+Hnh
9/crQui1NfGj5Kkp6OKLrHSPFcIMwe6bctFTIOc33J99WgiZPKd27sybgn3C
WslF9kL49F+ev+X4FAzIta6jbhdC2T7ewYjAaYjXSrjyt4qGFr9E6oJCpkFr
ZIlF9BUN/SaUsn3Dp4FhUjNq85yGT5et7F2ipoHX+p5AfSkNdbZebTNImYb2
tzHl1Xk0NN+/sWHd02koGvRTlb1GQ+/6jbnpM9NANrGz/HCChokfRKOSGdNQ
LuhMN/Wg4ZMWZddLS9NwMO5jTOMxGs727ROKYJuBhLe1HF+caBi+cjXNmX8G
nEq/FC/Z0vCyBl/MDtUZsLaQH6+i07Aoj+94WcAMgISbwjyNhlFfq/XZgmeg
JKuGnEChoT3rScq+sBnQatoYLLmVhlz2bz+NX5iBj4Z8/C4CNHTfEK4ukToD
txvponNcNBQJGmK9Vj4DzoIR2deZVEzZXZHptzwDF7Laqqu+UtHLzy24as0s
NMX76ue2UpGeybePm2MWwr08NJO+UHFq3ps9j2cWCsOvhHt9pKJFvqhXr9As
pD6esIIGKnJuvLTTQn8WvKsNLY+UUTG8x6FVNnoWWPk7zByvU3HWWDfTLX4W
PmtvH8lIpaJ3MdUjK3EW7rw5/fbbNSoeiepe5Ls+C/+ZbzF1TKKitswhscUH
s6Bfe41+Po6KC6ds/N81zoIvx2Y39XAqBvHs2eDGMwdOQW+sdh+l4kSQzLfb
G+eg2syi+o0LFd371t7rFJwDuuWXg+bOVLQrfadhLjQHHh93cDk6UFH9kJGj
quIcqLYMWN88QIzvvn4Ry745MNFmzIabU9FfZ+ee2ylzIL7ZUqpTk4prfFLO
XLkxB/8qH+U+1aBiYtZk6dlbcxArZ8ZIVqdiPutD6tH7c7DW0YfHVpWKA++2
Tux4OgcfLCRZ/ipQ0cZ2Kam4dQ7Y1+/OPS1JXI8+0HC3Yw6K8s8K/Ledin4V
pQvXuudgT7qchY8EFS9TvF2Dfs7B8F4VMU8xKjb0f1fdNUPEt2nSDxaiooZP
VXs93zy43lkl/9pExfqsbeuebZqHxwps/5YFqbj/SxA82DYPnE9MngsQ9lFT
zIsTm4exFfFIU34qPljMOm2hMg+hH0ia7zZQcUvMOWrnvnmYXP68adtaKi5m
Gbj+TpoH73jbnTwrFNRj6CYrp86DvQDPbvNlCp6z0KwLTp+HanFpu4QlCnKu
SIux352HrFj+FMFFCgoe3jBALZ2H4erIY3oMCioJdLlYfJ2HtQ6POaemKPif
V+vVlG/zsL2gx8eK8LO6ptquH/NQdbevo3iSgrr+1aIew/MQ7cZfHPqXgmaf
7vefYcxDoZVTsMQfCrrF+roUb2XAnTM+GzpHKJjXe/wqg8aAkg0fIw4QHtdw
rdUVY8CZ+ypjnb8oGDBkI/pehrh+ffFl/zAFz9K1+wd2MeDL8squdUMUfJ2u
ulEaGRBfteFaxiAFSVNy+r4GDDBPXDcsSzghS/jOkjkDaLTaSJufFMxYZncR
cGRAhYR5YGU/BXus/yUddmVApOGXe/aERQsYNdnuRHwH648rfcT4Do2JyPsy
gJPkzmNEuOzZ5z7DswzovXxt10QPhahnjbyXoxgQdbVRLZOwjlsdtsQS4+3V
k7QgXMdflu14lQEp4Zumyn5QsNkvwzn4LgMGKsZFMr9TUCaJdykwlwHSUpUU
Z8IXHkenBuQzwOljQ5MEYY2JgPcnS4h4YSNWpd0UTOIZPeb1jAEhxhXiEYTH
5JxWj79ggNUn2UITwplee9SO1TFg/p7vj8EuCs7H135yecOAG0KLF8sIW+Vr
nnB6z4AnBbd+xhBmHxW/fbiFASwu9yuVCTtyZuw82M4Al23vtNYSLt/B22rb
xQATznOeA98o6Om+TN43wADxAvXRdML1FwPuWgwzgLl/ViOEMC1nRMd8jAHD
Ap92HiQcVO/YYTrBAL53ORNahJt/tvkbTzPA8rPjQRphGbY93IbzDODa+uMU
K+Eosdpc+iIDlIU5jEc7KajpUtSty8qEwyy/2F4RTjorHrSLxISvcd5/HxAe
y0rn1eJiQugO1cRUwgbVGwo01jPBlFusL4rw7Z6Lhmp8TFCeExk6RZi5stSr
vIkJq9JbMo8T3kcLCFXcxgS9iEmyA+F8nREBeSEmKJhf225NmN3e8bGMGBNK
IsfmzAg7hrWZSkkyQTymL8SAcHmG2eB2GSY4uDo/AsK8L2oixRWYcO26bZoO
Yc9vGltFVZiwe2eh0i7C9czCUiENJkj3WUX8z0JbxC2o2kyQLFMK1yUcopk+
slWP+H0PLXl9wl/sNlzYTGfCLqVDSUaEZYIu0gSNmKDeFpmzl3BU6lI5nxkT
RrPTve0I9zz1389rwQTGyfQhZ8I7236N8+xnwvNbPrwnCSfPOMSss2OC4Rau
P6GEf/O1ia49zARjW4ew+P/lT8XsFcmRCWv3H35583/521djx+5K5D9tpvDR
//LnpzHF4k7kW5Vq9Zrw/qTCS6snmLC1/u39b4QLH4tJrpwkntd7LH+KMMfn
GzWL/kyw+Rbiuo6YX8eJ9UeYp5jwR//4B0nCFTwX5+ZOM2HE7dHQbsLe5v4y
U+eYYJ6wReEC4Tdev+onLjKBWiVjn0NY+JKD03gcEzZy+O1qJNzSaJry6yoT
CvmDeDYR61XLWOzfjztMCP9e+e81YbV772Pf5jDBKzGvdpqwwmoAf/FDJrC+
qZUQJ/aLWPlrqahiJjg1/vchlvC6HW7WMrVMUO3IzPAg9h/pAk8PfwMTEpg1
jvcIr+ktO77yjgnsp8mv+wjPppEim5uZ4O7K6u1M7O8fpLy8oD4mHFsdgv+I
/d/paqXqPMiEqE92HK8It1QxK01HmFBwdNWT1Es8X5BpK3WSCRl+6zZnE348
PLZSt8qEg3dLp4eJenPujbz1BuEFEP5Gqq4j6le4WPsPptgCXFE3uLSdqG9B
kZHHByQX4P07ZMYR9tT4HFGmsABjJflPDxD10TrXL++I3gJc3/S6gkTU0+3R
pSsPHBagTaJ4qWSMgiIDR2KvuiyA3vGhLsXfFNymx84f5rYAMiU9Rx4RXj9v
I2VxcgFyhf/b/WScggy3+f2z4QtQmny+4O0EBRsNtfLw1gJIJ7fPGMwQ6/dt
pMKZ7AWoq5j5MUJYyrT+aeX9BTg6EVeWOEvBaHPLWu2iBTDTeSrfN0esN2u3
LrWqBRARkjHKYFKwxvkqt3TfAnCHK+7y+kdBv4H2ZI/BBThlFblBYZWY/2PU
rbkjRD7i+1unCUd6PNguPrUA54/elz/PQkUdn0o9Gusi2DhFyFSwU7E8bNRv
o8Qi5OZ0BJ1bR/QXKwoMS6lFkFs0OXaUm4qbzgRGJMotQieJZmjMQ8XA86tx
69QX4UrSt34B4v2qEid4j8NokXhf0BPf8lHxUZr+1wWPReD6IzgWv42KOcXp
WgMFi/Cp8UbCJVkqei4dkel8vAi89ffXpctRUclQiPKpdBGkYhUN8uSp+Krz
7vLzl4vQatE09EGRiq2rBdVXPyzCWZvE6R1qVGSxqDLU/70IQ9bHfVV1qegw
NrAvW2YJFFM7VtKtqCimlkNPU1iCYv3CA737qDgS4aF6WWUJ3hz2OiVpTYx/
47hAiPYSvOxcXnluS8VLO+c6LM2WoJ/UZT5/mIrPo8mOqyeWoDW2TaHejYqC
4nKejg+XIMfgY0I50Z8lJV+ye1i0BB9krmvZRVKRi/U3fbZ4CeIMBUiMM0Q/
1f+QEv9iCe5H7mKDC1Qcv73jY9mHJWh+M3drhOj36reJK/FMLEFnVeGbu0T/
GMi3bf6lyjLYfn4w9OwpFf+eOz1A0lyGtxl5zzOeEfma6vy0b9cyCJy9W3O2
gorOzdcf/Nq9DHkHSJ7Wr6honih4iN92GV7xHtXhr6eiONfGV57By7AQKO6/
QvS7LSyc57e+WobbC93fzs4R/WRRuqNVzTJwiT+Sv8ug4trDsrti6pfBtE+v
rGGBilhiMTvbtAyK4/6u/P+I+XRNdW/+sQzuqrKmjSQaXnottidmdRmep7j9
ztpCQ4OLugJz9BU4PDLSvKJLwzLO/3KbG1fgjeG2Tw+v0HA4/Nyfqo8roM6W
c0MxmYZbpq6oFX1ZgfnV52HlKcR54VthXdy3Fei4fDfxYzoRL3+4hz66Apoe
4St892nYsufw5jLOfzAxdr2EjTjPTCbqx6Yb/wO51ov084M0lBPk9XRt+Ad/
uY5rbKcLIf/jl4U5jf/gj5D70VBDIVw08fg78vEfrCu4btZiIoTvwqsCfdv/
gbtXvXm8pRAeG/Q+E/7rH1zb22dAcRDCzNLGlLS1q1B5+KN8XYgQrt9/ofr9
3lXoKomLlC8Rwr+J8wKq7atwNWRUokleGMcnherku1bhWLFVR6qyMI7tN/aV
6lmFlMZZHVd1YRzcdKORNkzcnxm5g01XGLtua0Vyzq+CCW9Ztpu5MLoeqJqZ
4FqDI03g8og4b+71YHGolyGcYmZzqFAYxWNiFH0912B5y6s/6hQRHDjc3UX/
tQbHcjlvTzwVQZOh1oUyHxZcpRZ0iISJYoRsYthjPxa0UuMrMI0UxRJ/k5W8
ABbsgsqbgedEkfLv1ZpbQSw43v+1qzlGFCc25ZLPR7Kgf7nM4t0UUUwxCRG0
SGTBp7PJ/I8fiWJfAVV5uIgFezVGX/oPimJIgNvxTX9YsPPuUYlVOzGM3TPh
of2XBYXkNhZxHxHD6xLBHo5TLGipkKlCcxLDZ+2x7rlzLGhnaadn7CGGM9qF
xzT+sWDsE7Gs6mAx9GGbcbbbwIrDCspvd6eL4dGUs4fSlFlxxrvIrbBHDC2e
3TTbFMSKzxT/CGb/J47HZ1xXBUNY8erHxFrFEHG8oCTzVDCUFcPWJBfUhYtj
RX4FTTCSFXt/TxpOXxRHsayvk/zRrFgyo/Mz5IY4zsdsuL4xjRWte/8ZSFaJ
4+1DF35yP2PFg8b3L2/ilsCJZc9wtnlWZDS9tGMplcBDB/dILzBYUVJzKsGh
QgLrS2XbJxZY8XpQR2FlpQSme44rdq2wok2k+pO4dxJo0Hny5xMONnR5XaG6
r0cCb5b6mTkKsiGz7aH/Ha7taOIZtOW5Ghue5yFNuLhvxzsd5576/MeG4h/K
W/bKSuJwg1Jv4ik2fP+9jddKRRLlnvaufRzMhgqjPdIHtSTxWZKu098w4jol
kxRqLIlNpgtr/aLYcDJIVIzjmCQyX/o5+aeyYR5LaKXebUm0yHbiCixnQ4qG
zTW/zTtw8biu8+klNvRcX3oiQkgKzV7K4KkVNhQZG4q9KSmFN3m2iPivsuFw
X2xIjYIU6pRM9x5nY8d5NtcRIZDCyKUHTgfXsaOW/c9fCs5SyJbI56RJYce9
qUfD7t6TQu7SXw5z2ux48sPNffxK0mjP8VV3Socd/cnn0iha0lh0oI72R48d
d/5mrZalS6PF8q0fg3R2zK1Z7TtqI41Jhvsd2szYMYOVHqx2WhoFOl/Zlx5m
x69TPSlO9dJIW7l6xD+UHWOkZswlXWTQZGDv8+vh7FjgZ35ks7cMBr5du7kq
kh3dw3O1+YNl8P3Vcy1cF9jx97FdebIJMhgk6W96/xI7OkhJjvQ9l8FmSyvN
jlvsGGjFdt9TUBbP313Pr1vNjqYS97N8vspiUcx7v6O17KjQn8P6rV8WO72j
P8W9Zsdr3ylWVhOyqKD5L679LTtSwwLm3chy2P3hzxq/ZnY0/BKSoKgth2pz
TRN3+9lRgrPZbO9dORw2vvSek50D2xp+vTCKkEfXPc4i20kc6M3NPa56SR5/
WKgH6XNy4O2iEkmldHlss+0VDeXmQINgK0G7MnmsO6p6+rcAB67Kj3gdnpDH
zDPdOz5t58D+6cjdh48qoE257MVrxhwYF5T29PchRWx+sab7sSkHpu9X6xo7
oYh7qr4qNe3hQNvPe2yXTysiveHMd3YrDlzXvVpvl6GISq2tqkEHObA45M/I
eLcicv8NGzh4ggO3PV7hcVBWwteSTSB0iQNnWHfJ/qxWQrPEXrNNCRxYIdl8
JPadEjbPTduuv8KBPV/mj2t+UcKe+q3e/5I5UDlx9+HSASVkunrc6MngQL3a
vhMSJGWUy2Kdup3PgRhkrL9ooYxpm7XuCr/nwKM8XbpzI8pIPWNetLmJA03c
b1xkTivjvWGnig2fOPAEzYmFc0UZn5RFf1r9woFrwgZ+79mogh+s2xZ7v3Fg
C48q84S2Cq5J8rXOHuXA8KsqS3xXVNCTM5dddC0Jm49cW9tAV8UPrLEJu9eR
sJDX6mGopSrKrZzY5M5DQh6/rIN0e1X8OyUvVbCRhF9E6sI5g1QxsLtsj/o2
Eso1jW0MzFfFiEcNyaayJBz51Z78e5MaJtkMiQTsJRHnMt2fCatqOGXx9mGK
JQlddD9u7VivjvtNH6qU7yPh8qdrK5pC6iiod9Jg2ZaEEw5eOfq66pixY84j
2pGEPQW+MaHh6nh/kf1xhi8J1aseOZatqmN5toTu66sknKyqsOahaKLEqkFY
7TUSqu39+faCnCYmObg9r04loevbXtZNepp4fFuu+qt0EtaGhLcmumjitpQd
CmV3SPhUQXfnt4eaGB4jI/ygmISW5w/krcedSPdRYrn0hYQOtUv3t13UwkdN
VhDXSsLvRl0bMzK0kCLrHxHzlbg/gmYET7Rw9lfxwoVvJKxM8Exa7tbCHBfV
6fB+EkawDTXuVddGTluNnz5TJFx3ejw87682ftql07B/IxkzB/q5z0XrYHzF
qSUjfjJG+J+l89zRQWP1x8q7BMl4S6z1VtNLHaxRELstvpWMFd6t3L+mdLBU
lDN4VoSM8mw5gTeddfEGuU0qTYmMRWlRXFdM9NA2iscpXoWMzcZfgq+76yEf
i3FqpBoZB9H2wI8oPby0+JzFYycZb9zUcJSo08PIP1ldmkjGoN/fPz0FwKOt
Xpe/WZKxXHMNx3txRBGrnLqP+8g4ub6FPqqG+L2ph1lrTUZVJc7v8kaIdm/2
ueUfIGOjy+e10icQTZ5r6oU5kbEKeqTnniAqZLFNUn3JuFVvS8FhE31ket60
dk4ko5lNckRqBh2vhN4jn0kio97DZzp+pXSUjC94mZlMRg7qmsnEJjraPnwp
3p1GRu2no8m3VulY8qt7xjaLjGU3TGq3nNiN3seoKXuekIlzwFxIvpkBsgVK
mHiWkJE1QsTW9rgBZlyQW459SuTj8bbqg9EG2HhX59ibCiKe/nKI72sDlOy3
V9OvJaPATz1DLroh9jlktmm0kNFe1n7y4n4jDD6ZE2vbRsY9OVpy8UFGuD6i
SCewnYzxiTqf2G8aoe6tyvvFXWTcZH4xxH3ICDO6fgTK/STj96AdesJnjdHm
gJCg2CwRP9E7rOqzCf52l2zEeTKmVfP6OS+b4PkghQgnJpGPZpeyHGlTLE7V
G7q1TMbSaLsjUtGmeC6JNXyKnRP///8O/weqTh0v
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 5.},
  DisplayFunction->Identity,
  PlotRange->
   NCache[{{0, Pi}, {3.4934106189782406`, 25.448211153570867`}}, {{
     0, 3.141592653589793}, {3.4934106189782406`, 25.448211153570867`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.46945215706855*^9, 3.469452200221246*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, 3.469451011535277*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.4692784482487173`*^9, {3.469278892566986*^9, 3.469278908586074*^9}, {
   3.469278948273715*^9, 3.4692789822518587`*^9}, 3.469279051396206*^9, 
   3.469279172313555*^9, 3.469281290688089*^9, 3.469283763985681*^9, 
   3.469287450972332*^9, 3.4692916006669083`*^9, 3.469291820514844*^9, 
   3.469792723332807*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", ".003"}], ",", 
     RowBox[{"k", "\[Rule]", "15"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".02"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", ".04"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}]}], "}"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
  3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
  3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
  3.4692915966092777`*^9, 3.469291597442411*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{
    RowBox[{"DSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"k", " ", 
           SuperscriptBox["hIn", "2"], " ", 
           RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["hOut", "2"], "m", "  ", 
           RowBox[{
            RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        
        RowBox[{
         RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
         "\[Theta]Initial"}]}], "}"}], ",", 
      RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}}],

Cell[BoxData[
 RowBox[{"\[Theta]Initial", " ", 
  RowBox[{"Cos", "[", 
   FractionBox[
    RowBox[{"hIn", " ", 
     SqrtBox["k"], " ", "t"}], 
    RowBox[{"hOut", " ", 
     SqrtBox["m"]}]], "]"}]}]], "Output",
 CellChangeTimes->{3.469279172566238*^9, 3.469281290859393*^9, 
  3.4692837641579523`*^9, 3.469287451129204*^9, 3.469291600792757*^9, 
  3.469291820642007*^9, 3.469792723516617*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.469279288793222*^9, 3.469279335006296*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"hIn", " ", 
    SqrtBox["k"], " ", "\[Theta]Initial", " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{"hOut", " ", 
    SqrtBox["m"]}]]}]], "Output",
 CellChangeTimes->{{3.469279290719293*^9, 3.469279308679018*^9}, 
   3.469281290900819*^9, 3.469283764196391*^9, 3.4692874511698847`*^9, 
   3.4692916008315697`*^9, 3.4692918206919823`*^9, 3.469792723561266*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469279288793222*^9, 3.469279335006296*^9}, {
  3.4692917878701363`*^9, 3.469291804973325*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hIn", "2"], " ", "k", " ", "\[Theta]Initial", " ", 
    RowBox[{"Cos", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{
    SuperscriptBox["hOut", "2"], " ", "m"}]]}]], "Output",
 CellChangeTimes->{{3.469291788253261*^9, 3.469291820764811*^9}, 
   3.469792723784855*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"m", " ", 
   RowBox[{
    RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469281315932843*^9, 3.469281321620799*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"hIn", " ", 
    SqrtBox["k"], " ", 
    SqrtBox["m"], " ", "\[Theta]Initial", " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], "hOut"]}]], "Output",
 CellChangeTimes->{3.469281322319522*^9, 3.469283764272977*^9, 
  3.469287451244597*^9, 3.469291600893818*^9, 3.469291820819189*^9, 
  3.469792723837706*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], "/.", 
  RowBox[{"{", 
   RowBox[{"t", "\[Rule]", "1"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "2.193676704226083`"}]], "Output",
 CellChangeTimes->{3.46927920125646*^9, 3.4692812909651318`*^9, 
  3.469283764313188*^9, 3.4692874512701893`*^9, 3.4692916009428587`*^9, 
  3.469291820862997*^9, 3.469792723887793*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"period", "=", 
  RowBox[{
   RowBox[{"2", " ", "*", " ", 
    RowBox[{"Pi", "/", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " "}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]]}]}], "/.", "pVals"}]}]], "Input",
 CellChangeTimes->{{3.469291537832909*^9, 3.469291574897297*^9}, {
  3.469291611412964*^9, 3.469291613643629*^9}}],

Cell[BoxData["0.17771531752633463`"], "Output",
 CellChangeTimes->{
  3.469291543318783*^9, {3.469291577607161*^9, 3.469291615506093*^9}, 
   3.469291820896101*^9, 3.469792723944265*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", ".05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469278800037665*^9, 3.469278831712234*^9}, {
   3.469278863106338*^9, 3.469278881443396*^9}, {3.4692792101778393`*^9, 
   3.469279211901314*^9}, {3.469287456939126*^9, 3.469287472322201*^9}, {
   3.469792728232666*^9, 3.46979275243246*^9}, 3.469795381635676*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", ".05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469278800037665*^9, 3.469278831712234*^9}, {
  3.469278863106338*^9, 3.469278881443396*^9}, {3.4692792101778393`*^9, 
  3.469279211901314*^9}, {3.469287456939126*^9, 3.469287472322201*^9}, {
  3.469792728232666*^9, 3.46979275243246*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nlYTV0XAPAGUkpCgxKVhDdpQGVeiSiaZ500UxLhvUKoDCUNKqVZSvee
c696r0pp0LBVSGkgaUBC0UU0oE+kb/nrPL/nPM85a++99lpLzSvQdq+IkJCQ
hLCQ0N/njY/lrOaLczZHhhgcz25pq/YXkSNFssObq4OmAvI6+DU/5gcXxMkK
wZntx977dlTXbGTnLw+RlYEJjpyiSUdLzWvBfZ9jsqrwumfqkk5Hb01hzFOR
I7K6MCYjUJXt+FKj1Nv15JCsEWTVnH1f9+xPTYuYa/lBWWuIWgB3Etqliewb
i92x9zxgGn+3/E8pVXJkVca76QN+sN3QKdrq6TKyiBU91Bp4GEiixEXH/Tpk
4ojnVH4dC4reZ65RbF5N+P9Iz89oPgE6mbXl+mmGxGla+3ZF7TMgHuX2xZO/
gWREKsjLVoXBoNwquZs0kPFPulJLqs9BXID5cyvuFtLi4Tjr9McLIHNRtrcs
aytJWPUh4eVIBHxeX6/pddCEHL5Wd2T610hQ9h047K+1gzQq5rsGKUSDnNNU
dLiEGZEZm2r8qhQLG/Uawwurd5Inr9y3FZrFgZRBuatBnDnpLAiPWVgaD58P
blmoYWFJNqollL2/kwBE6KXhyXdWZE/64o92j69AgPiQfUqDNfl+b/8ek9ZE
qIfsRyXRNmTXqMHzng9J8EHnfd+Isy3R/so7bf/rKlx1OvPk/QI7EpH+1Mf2
dzKcM8oSKmqyI5mWZ22/zU2FwVNinn7n7cnywoGzSgppIMkezNu83IEY933t
XSKfDssni9rc6xyI4vywLe2aGeB+wFpK38eR+P65PzB9ZSY889Z6qzjmSP4d
Soh7ue0a3Js2PP1zuBOR4on6pjhlgfOdV55ls5yJ0rwVYc+drsPkxmem9Rec
yZhxQOtLg2yo+Dow4D3pTJLar4XGl2WDQDaB/XbvbnJ6543tdwxzoMp0o39a
/W5Sd3+/DP9eDlSwS1tTFrsQk/lSv3yNb4DJI67S8BEXohF4ZHCs+Qakrg0a
rqh2IUbXCn9ssc6F/Sc2BPInXcgVgcm4kW0uUMFpVNIfF/JOv2cc7HNBtCWv
/uSUC4loEfm5yTkXSidfSG0VpsjjKbtf6zxywWHOCKt1GkWcvX5M6R3OBbFW
zexWSYocWbZBYnF8LtD/MzE5qEiRG4X1C0TacmHCLmNAeTVFps/08dF6mgtx
HzQvjqL9vET/c3yWC1rnpWMfrqGI9jzjzXldudD6qPp+oAFFKlg1HvZvciFN
CT6WraPIU8MKDj2aCwX76F8rjSgiUn1LZ5ccG2xPi6rmmlPEuzF9a5ILG1Js
JYLLvCmy+HJVUporG2TozIOUD0Xe2vQNZLmxQWwRp2sS7dWtEcnzYkN8p7jc
ln3owYLH1f5sOBtdt/SeH1rsoYMgmA2C81Z5zEGKeBqP+W7OYENaV5q69HGK
qIrJl2+9xgY+0z91Hd33aO1Ms+tsyIzbZqd3giIeNiH5drlsmHBZ6257Eu0h
MeKXx4ZV5jmSl0+hQ1SCE++yIaZSqvhTKEXcK3bFDL5gg5XkcV2jSIroRp3U
UOxlg+escW4TWsSFqTbrY8NVA7Mwx0sUYf8UGbnZz4bFVk67/KMo8nFthcPB
ITaYZ9baRsVQJKh0ucroHzaMvVBbkh9PkZji6UW/1Dgwc8vSyqBUirhdWL1L
awkHxD5LSnxB69h79rsu5cCvXXuLfdJwv8cq5as1OfDOzm+pdTpF5q9mnQpb
zYHhIz7HVTIpklv4dtt0Ew6onBxsvH4dz4tf0yntxwF755Cly2iKLGk0Xafv
z4E1AUKHI9FxA0/SqQAOWK4NXShA+yj37+Ee5gA/yJ/NZSgiHSXev+UkB5bf
rfRU5eH+77UZZkVxgFkSnjqah/kX1mOTEcOB13E9qjvzKWKY6X373mUOmK+V
mpWDlmo/FiSdyAH/9N8yFv9R5I5R+m8mgwPqXS8fXONTRFL5nfiLfA78WSYk
UCvE/TEM8Be+xYFb4hv4geg+2+9Nywo5EKWs31mJvnNpRhyrhAPV8zzsHYrw
vMZXyElXc0D0lNevkNsUKX7KUtvSygEvG/5EcQlFXC+JrWdGOCBQJ7fzynH9
MvPY3DEOrP83QeIt+lOyivTN7/i/fVs6FSooEsxe+zb/Jwd+L1jXcxadWuMf
VSRMw/fQAyFWdynS/r2lp2oODUyVCDyppEj66RfbaubRwNEznTuF9hId5BM5
GkKE9uzRqqLIsIzw+TpFGhoMR1zC0dJaq1c8UqOh2i1/TLeaIju9Uk4906PB
5lZZ+qEaiswV5A50rKah1yzhYyK6O7DAqlOfhuwrWkVlaL8zj9R71tEg487l
ChGKRKT+anq9hYbJhzmrotCWKuIGb7bSYEafNspDy9Gy2W9NaDDvlH3QhGbf
XskaMKPBvyR4reQ9itS2uCt/sqHhvzjJivPoKIeAiM92NGipkPBstM3LE8ND
DmiLlY8q0X2ChPrh3TT846pTOob+M60+4IcnDY5VdTpULUUeRLc9H/emIYuj
Xf4vOnbuK6Ofe2k4pGJZEY1WVv0h+3s/DU9GueoV6HUbllcJH6XBu/veFZk6
XH8LBGqzaJD/oHFpKfqjh5MaFUTDL7Lj9QZ0ZkREeHEwDS7DtTd90McUswzf
nKbB3mWB6gm0ZX6JYFYoDdHlOt+j0EJP+y18z9MQwI2q5qO7fX5PJYbTcG5/
W1ENumh8XhG5SMPNc21ibWifhVvllWJoaNrxp/kLelOBS8P2yxiP8Yotk2j5
rUeD/42nQUVvjqxkPUUa/HJ6HyfR0FEo1r0EnfOrLP5nMg2VfLkmXXTw5Tbj
pWk0vAl6qbwRbac2+M02g4YPDS4t29FaxVN06DUaFHzjX1ujp+9Q2J1/HfNB
4Yy1C7q3W1uyO4cGxVxVNW903NSewFU0DW7h0W+Oov2uHFNz59LwOcz2yUm0
kUZsezQOBto3WlXD0Ipl7PCyfBpu14u0haNHd1YaDvDxvB9+6o1CN71qF8wp
xHhioyzi0OzDnzI236ahebJ3QSL6jKio5YESGnyFBWbJaMdkJaHUUhqcIrid
qWidf1YV1ZfT8PbMwvvpaPFKM5+RuzS8f7ljbib6jaWn/KJqGvoyltX8dcWb
Ew07CcZ7p7LprxNZ8cHHa/E+rJyx9q8DZnC12PU08EVnTMtAm6TX9LY9wPOB
Sp009KKVnfGTDTRs/7z07t94xmu+GGs20ZCnsIP+G2+brdh3x2Ya6Hblkb/r
4Q0sZM630pCuz82IRp87ob+74AkNsY4CTgSakrSQfNVOwxK7vtln0WuyfKok
ntOQtiu2OxgtpXc60KCLhkbvYREWeqAuUc27hwbdOomYAHS1Y1573Esa+pO6
WT7oZEFteGUvDSkzPKoodODpHkNBHw2ZFtf22qJNZ48K5N5hPmQmHDRFq92Q
yDQeoGFUe1PHJvTEGjXLwA80jBtlZ65C57tYFzV8wu99it2phA4f8vX5PkTD
VRlFvVlot7BQ+cXDmC8trsenMD9laH7wqW80XLSfrf4WzRqR2qo9SYOakub4
dfTNr8yk/hQNu09bysah+4aMyzYJM7DYspZzBm3+8cRKi+kMjOekaexGq7/r
VwiYxYCX1Zw0CbTzm9Cn/85mIMv9rvM3vL+XXyvFnprDwBdBaUwveuKFtUi0
HAOrl960KUQ/fVb5mbeQgcnBUCtrtHi7E1OowoCJV2OhAXrzk1HPcjUGns8+
EKmM5jUv72zQYGCeYuGV91hfwh4k3fuwkoFTP9wWsNA6ZQHJGpvx/0frJllY
z3zuzLBZacRAR38xxxadXnxDUt+YgUppsVodtFhhV9i27Qxc2tnoNIj1s5e3
7YC3JQMzjL+M26JjMpSNctwYyNEzl5TGelybVjrB9WDA2S/h51us1/9LsS0p
8GKAl2rsWor2SYrUJPsYSHf8HOKG3hD7Tfb1IQZavh1bR2P9/xjyWKAcygBL
XffCAuwX5Q21AUpnGXAJyK4ZxH4SObf8q8J5Boa1J1gl6KU05/vciwyUiR6y
sEB7NYcIS8Qx0Jt3tCQI+1P3Aj3F71kM7Nr+3KuglCLcvcsyR7MZcP/htOkY
OujWQpXhG/i+rT1hHVp260yNTzTGH1HNJXcoYu3/TvcNH+P/J+xyA/bDhrKr
ps3VDOhKV6+vwX6ZIhLT1EgYUNcILDmF3md+zrKhlgGtrJU3DdHT+g7Z1z1g
QOVVpzAf+63RDFOP8hYGMjXF/JOwH5c5TBzn9DKwTm98kektijCjbsyZPwyU
Kitq7LqJ6zX1OEoLcWFhXV3JV5wf/LI8N7WKcKHny/+4iejlO33aVWdwIU1C
srSbi/mZs3+qbjYXPgaJH3XD+YNvzXKaqcaFMRGTvTvZFCnhX5qRspULx9S8
rfOv4X2bFv20xoQLjh5pBpvQQS4x1wZ3cGF8/43QZpyHDMTiVq8358KhNoP1
nzMw3j1J7q/suZBpe8tmMc5PlVLXS9X3cSFqYKHUkWSK1PkX+xZEcsHUL+te
6mXsH1rrNhRHcWEqbXHjIvTmoSrpshgu6C6S38mOxe8FPiypieeCyjX7gv9w
vuOzekRbU7kw8/xR+Qqc/1JDhLKHuPh+pt2u8giKHLpi3qX5iAvel9fvtwmh
iFJFvylHggf+9YMzBQcosv8iy+eZJA9cRQQDgC6znxYmKs2DI8nGasn+WH+/
qpd6zuUB12BOudF+iiQs8dZYtIAHYi6XDl7GeVk87o1wihYPHFfsHpL0pMh3
796KSCseENcOnzgHrI+zurQCrvJg6XL5xeUbMZ+n+b09jdb6NjRQhP7fxHhK
LNr6TA4vH602qCB6Cz31IEM3G3201ql7BP1z7auNF9GyxzvDjyfzICMr0dIB
7dz3vPdcCg/u32xxHNlAkc/P9yUlomdqLpL/hA5r/mHGRh/1NevoR/Mq5Evu
ox8rr7brQk8kOUaLp/Ig8aidRQ060+y54WV0+ZOH62PRukb7hrLQ8w3bxyPQ
9QY/btxCL6IqisPQQ+ry0k/Q214v0GahN/9x6J+XxoP3XStUKPTTbwNpS9CH
18i9sEfv+3TMSh/db9mTbImO67pa4Yi+TcZnGaOXtGoc9kUrz7d+tAFddr9E
4wQ6QfvCBX20eaXJi0i00rQk0EH3FXXEp6FrU0MnlqP/D1+ZYgY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.05}, {-111.07207005910067`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4692789088211737`*^9, {3.469278948557959*^9, 3.469278963391404*^9}, {
   3.469279204610153*^9, 3.469279212808896*^9}, 3.4692812910466843`*^9, 
   3.4692837643641663`*^9, {3.469287451304944*^9, 3.469287472640568*^9}, 
   3.4692916010525703`*^9, 3.469291820950418*^9, {3.469792723998355*^9, 
   3.4697927541928596`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model 2", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, 3.469451011535277*^9, {3.4697923342504873`*^9, 
   3.469792334418314*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.4692784482487173`*^9, {3.469278892566986*^9, 3.469278908586074*^9}, {
   3.469278948273715*^9, 3.4692789822518587`*^9}, 3.469279051396206*^9, 
   3.469279172313555*^9, 3.469281290688089*^9, 3.469283763985681*^9, 
   3.469287450972332*^9, 3.4692916006669083`*^9, 3.469291820514844*^9, 
   3.469792441847259*^9, 3.469792574209753*^9, 3.469792761713189*^9, 
   3.469793144953557*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", ".003"}], ",", 
     RowBox[{"k", "\[Rule]", "15"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".02"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", ".04"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}], ",", 
     RowBox[{"B", "\[Rule]", "1"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
  3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
  3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
  3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469792465925961*^9, 
  3.469792488714308*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"k", 
            SuperscriptBox[
             RowBox[{"(", " ", 
              RowBox[{"hIn", "-", 
               RowBox[{"B", " ", 
                RowBox[{"\[Theta]", "[", "t", "]"}]}]}], ")"}], "2"], " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hOut", "2"], "m", "  ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
          "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
          "\[Theta]Initial"}]}], "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469792394632051*^9, 
   3.469792431184136*^9}, 3.469792734935874*^9, {3.469792971685051*^9, 
   3.469793046089113*^9}, {3.469793130677544*^9, 3.469793135285651*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DSolve", "::", "\<\"bvimp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"General solution contains implicit solutions. In the \
boundary value problem these solutions will be ignored, so some of the \
solutions will be lost. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/DSolve/bvimp\\\", ButtonNote -> \
\\\"DSolve::bvimp\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149235249*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Part", "::", "\<\"partw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Part \\!\\(1\\) of \\!\\({}\\) does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149313026*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149380864*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149435318*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149437017*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149438613*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149489463*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149491139*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149492714*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149494276*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149495899*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149497574*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149499228*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149500773*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\(ReplaceAll :: \\\"reps\\\"\\) will \
be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149502264*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", ".05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469278800037665*^9, 3.469278831712234*^9}, {
   3.469278863106338*^9, 3.469278881443396*^9}, {3.4692792101778393`*^9, 
   3.469279211901314*^9}, {3.469287456939126*^9, 3.469287472322201*^9}, 
   3.469792650644711*^9, 3.4697927592582197`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.020408163265306*^-9, -4.007133774519523*^-6}, {
     0.00001533589602798134, -0.06027011111123563}, {
     0.000029904027866808508`, -0.11760849414268768`}}], 
    LineBox[CompressedData["
1:eJwV1nk8VN8bB3A7SQuJQkRkSSr7Uj3IlqUsIRIKzdyIwtcSlchSShSyzNwZ
20TIksh+bCWVJdJClLJEkoRC9Tu/v+b1fr3OPfecc5/nc0b6pJ+tFwcbG9sW
dja2//8GOIj4H7bUgcPDfJsuVf9qzK4NtX1uqgvV1g08ShW/G53/eJeFyejB
dok+Wb+Epcbe2o/N4fv2gnFus7R1wXKj5adY41Vy+yA47dCEWNJKo1F/yjrr
7fthWlHJhev2n8bwTzMPq8UAbDdF13jE/W1c6i73eC+mD8rqQ27fc/81pr4e
1hRK0YcdlprdsVZsSHVIgN90nQEsjvvPtLSzId/6J7ee0AzA+YjBfJEjO+Jv
/em1ImIIvAPmygd72dFSwfqlq5uN4ED8rU0F7zlRUI6o284MI2hbVHhU586F
ftAkW7vFjGFytv0t+2cuNHlTOUFUwgQKSjbUb53iRqeuqs3V0Ewgn78wfsmX
B41E6h513WIKfeJyC9xzPIhMvZEum2QKDrtHQnhP86JaqkzFBjkzUHo0pWDL
wYeO+h2ONWOYQbQY1xbbCD7UR3X4OiV1EE44CmvJcq9Cz495VqpKm4NOHVfe
8XX8yMzeW7w/yxyWM29wtyXzo9ZD/hGhMhbQZvhB3VVsNdI3Cx2VyLEAawsT
HUXmakRTdx5UUbIEc5djAe+UBZC2XmyJR64l9Dgcf3ekSABVqCcI88pZwd3J
+KiHqmtQkTxtyGr7IVgOMWMJ6K9FnTwu1WeErUHRWfHMVZX1SPijldONJneo
E/nmt6VRGp1TzfzEPUqFxgjzP9X0HUgyMH66y+8s/InMvP1jjRpaOnfiX1FL
IOht0Kxx1dBB9xXXbsp8EQLtXfDUygOQI1evyWaVC/ANeelbmh5AmXGiIsL1
EfDWzTbViM8ULU7tFpBtiIT6mfCu9Dpz1OnusCZ88gp0xm7cNr5wCCWpjicN
zsaAoBm7pe11G3SW3nKOeyYOKpoOhrDftUMdm4tcgkTjoZz3GEHldEDr5/51
zIjdAJvXf7J5TY+invduRmUHb0KONal0ot0ZvS6Nvr6lKhFcV/t2XDE5jvZK
Jz0aq0yC6Offci/S3NDxDJlJu+e3oKLFXkxJ8ASabyKOG3fdBjpjnLTSPYks
fmj2vxtPBoFl9Q8/AjyQykxB+JHlFJhzuvTSO9MTxWS89LRdSQV7K7MtQkwv
RDt02fanUBpwb3xX3Z93CimUjV4WE02HYy9Cp49GUtDnt06FIuLpcISR9DY6
moKyODr7hKTSQXrHsGRZHAWJHamUXy2fDqVKPGUcNylo9WLMi2XNdBjR+9Kf
lElB3/YqbH7vkA5xNoMH3Coo6GH76VJGajqclzMLLPlMQYYfZoZkRTIg1Fky
aAqoSEb6fFqwWAb0m5j3fjSkIvaTXLYdkhlw4Jzo7CtjKkKfNrX5yWcAr6Ex
UWVBRfvGDQprtDPgDX/1djdHKtL+djvY+lgGfOTfXKTvS0UqK1rrw5kZkDtt
kGCYQUVr9zU/7czNgHeXL3h/o1HR9AXLKOmCDHB0rRm6w6Cion/uC4/LMiCw
+sPlT7lUpMh5bVCwJQN0CsJSjpdQkSz/YP7d0QwQtCl9PNBCRZs3RRj0KmVC
RJ/2wsIkFZXvEhQYVMkEe5HbVUrTVGRpmt3/WTUTtvgk67jMUNHFoFbvBd1M
ePhFLezRHBWN9PGlbrbIhFP1Yf32K/j9SUmTbt6Z4Pr982+ZNQTSX51z+2th
JnRQ653/KRPorYy663xJJlTp+Yp8USGQv26bwt8HmdB/cvXZ7t0EyiPG69fV
ZcLp/Q9/3VEnEH/7jgnV55ng7BdgwL+XQH1XKvaGfsXrsZNuOG9OIMrftlHu
nTRI/b27N8qLQLIqZ/S99tDAP+x0kgGFQB+OC2e2atDgcoiF8wqVQEfrT1pH
7adBdl8cD+FDILPwfzVs1jTgvZ6eLRlAIKUl7cRlfxo0dD6o/H2JQGOKHyad
g2nQq64WFnuZQNlOscY1YTQI7DmvLhRFIPHqV0shV2igv3nmkmQMgQRC/L0W
Umhgsd/8iNB1Ak3PF+rOPqJBxfs9zV53CHRPzi7Fup4G0U9ndzWnEeiU/dJM
SRMNGM214eIZBBqqMMvz7aCBRizn/VYagToDRtd9HaCBFmfUwdksApXOSo6O
/cXPz7/UKC8kkI/0YzDhpIOSxsYfA0UEUrA5k5HHSwd18lkwx30CZZXWHvZc
T4eVuxrvjEsJdMvvaM1HaTzeyfdVXgWBAqaTbg4a0WHEOzn0aR2BTlbMnJc/
SAd5FrOqpp5A1mFWp/yt6KCz5WB7fgOBlFet2sfnQAfxfC+XMITPRzZiUo1C
h+KRNOWlFvx9pt6/uuhNBztbm8GeVgK1lOs1PfWjw4Nt6UdYbQRi6i/ecQuh
Q014X7rxEwI5u/gax1+lQ4nyvN3xDvw9tj3f3X+DDjRbGTnxZwTSmlSUkL6F
1186XPEKWzhk9EdlBh3uta5bbfCCQC9uuzBHCukQuOTv972LQHXONfE7S+kg
x3FIKLkbn7f0puCQCjqw7rcT6j0EiinptVpbTwdltYI93i9xfT4zX9bppMN3
6/McZX0EUrmVP3blJR3EdCrkdV8RaIsTz8uufjr8u1+02Ii9NNaU7zWMx0dN
32rqJ9BEsVRy6Sc6xOajY/teE6g/8MKl5XE6NI5ROh5iP+DQcUj6TofyLRbJ
tDe4fp6mGgz+pIPL4oZp/rcESkz8qSz/mw6nijvG/sP2kSzlrGcnIYgi+cjg
HYG268qXTQiRIBymVVo6gPfPHk1TEyXBrMH4G+cggTjbR2IvipPAuBjZYof9
wZ50FZYl4T/JYpUv2J0SKwfdFEg4eE2lWeU9Pp9PThr3lEnIu849cRY7/dxG
AX0NEsSyh0YnseO0Axav6ZBwKy2oVmaIQEH/ukde7SPBafqmpCO252OVzq2G
JEjZLKyJw7a9cb3a24SE0ab/4h5i6x+ZzK00J8E2/t31Yexd4maJ7IdJOGY6
u5lnmECSI3lhlnYkxA3FqChiCxRwUu44ksCKoz41w64woXqkHSOh+snCVg9s
l8/P3dLdSFAwvHj2PDZX5B6XDA8SZlp5qhKwi6VSj2ZSSKA6p80xsB3ql47Q
vEkgzPXk7mP/dXazofvh8WK/zKuxWb9arMgAEiwSX3s0YR9KVTBnBOP9FY/4
PsZeULthwgwjYX2FjHc7Ntkza5h1iYRGuSzHJ9gmfg6QHUWCfQtFrQV7RqBW
LyeWhG83Iv7UYqfdk9LOjSeh8/F8RRm2vtkV9bybJOh87zmaiz0xOrGbdZsE
7RdSE7exE6Osdt69Q8KVk5MnIrC1pcsV8zNJOLGwt43A/tAgsr2AQcJ2wW2C
1thxLmEy93JIGLqQb6SGvWdpWLLwLgn85m9dN2C/u2MkXlRIQszjJtfv+Pwj
NQpEi0uwY30PdGC/POu/vqSKhOwws6pA7PNrXwuU1pLwaEeikTG2TJHeqrJG
En6I9ZQLYfuPc3E8eILnzw9SycX1IRZN/H3wjIRLXxd1qNjNMp1LFV0kqDYU
yihib3C9M1f5moQ5l/HYLFx/dcvLM1UD+P3cCRxO2J7p7l8fDZOwcS7XYQ12
RZ/iaM04CR2EZ6wPrm8X/4SPtVN4/rUqJ0WxudbPva+bIWHd7ntCjbgfjljU
9TcskjBt/O87F/bKxNbexmXcH1nLEjm4f3JjorvQPxJumM6K7ceebzrU3szL
gN4Qoauncf+lan+sfizKgALOA8J03L/7+40rn4gzYM5EslIaeyzgXnm7FAPW
JiXI5OB+1yoJKOyQZ4Dz88uONJwPb+R46J1aDAjkX7OJivMjouV0epceA2SS
Jn6+xPmicKIrpRvweGO+FF3sUFpawktTBrg/PCfOhvNIbMOOiH5HBizNXZf3
xPk12p4noOLCgMhjEcKs5zjfL25Nj3ZnwOtnukqfcd6ZTm4sVycY8ITwe3YE
52NgE9vnW+cZUH59oJUX5ycEh52dvIjXw8f3Rukxvi93LqwYRDGAq3qQ3/z/
eZs2tXE2ngECW351hON8fuHXb3qYzoBj0h4pDxpxvcrZ9LGyGKCvqhtThfPd
c+CZ+988BgynPbpRhfN/yaQptPg+A0Y2qw8W1uI8kiwqXI3wfjX/OnpV4f0/
v7yufYQBwg6GvWL4vrGIXMmUGmeAz6/0gmF8H4loBysETzHA5ML8FSa+r4pz
fAy2/2SAtMIJE5ECAp2pL9Rp5mBChcaTVz05BMpITvXeKswETS9fzTh8P84Z
+nQNajKhw+BF2uRFAmmu2kl+0mZCyhVUbnGBQCFd0z6Tukx4Mh2iVRCG+/2Y
H/+v/UwYPTB1wSmEQHz/+RtvMGUCe9uL8YRzBJK4G1J70JEJQwntIZYeBDJa
HX23MpgJCqEbfggY4fuhxzioPpQJtB/5vb8NCPT0Do9xaxgTxrlDeD4BzgvZ
uJGeS/h9K2Uu9/Tw/4l98VumY5kAF3QrBdRwfvsl3d6WxoSkw4GBUtIESu6l
X0p8xISx2LiZ4CUqOjtaLXKjhgmtR81dlxapyGLxVfHVOiZ89vRVDp2nIg7x
tYORiAlt9jqfvb9T0bmTF7X/a2cCX2h4idwYFR2adZ11esMEO+6wbZPdVMS3
bqvHtl9MsP+usaE8h4o+b927JLXEhETnp7sbmVTUqHo0SWKFCe4bs9Pb6VQU
5JDYuJEtC4jjrebdd6holM4mwceXBS/HbcQexFNRs/LHvq+iWRB6N/Nrmz8V
hZtnm1RqZcGbtts+EvupiKA+lRvSyQKRkLB9FF0qcoj5zsWzNwv6A7RoxZpU
tLt5f4u9fhZwfLzCtnMXnl9nAObNsqDRUdB2QQqvX1FYR905Cz6NknHlbFS0
lS9mR3l4FkztRN+eN1BQSxux/n5TFlD45aeJnRS09rDwr9IWPD7FkDmmQEFH
3zQMP2jLgtFd1fZushT0dXJDSfXTLOiZO/TYSJyChNc3WLX1ZEHpwOmKYT4K
8nQWih/8iNdraB9q/+kU4pqp4V7NkQ07WniD9qecQsabBJYphtmw0GVqv/jV
CzGLm5RSjbKhtbLyxPKYF1oxDHZuNckGvy8m95Y+eKEHZ0aqt1pkw6kK3pnJ
Pi8k3fIo5K1dNghunDe4VeeF/pzxWjD3ygZYaphYvuaFHrY0zO6MywZ+q3o7
XVkvJOd3bmLuRTbIKeVFuJt5In162YKBdQ48MDtQXH/+JMouaxXn6M4B8YDq
bN8gd+TRkXEg2TkXFMtUTdM5XJBbjcX1iYFcCHuYL68z64Bq7je+XkvNg9rG
wKrni9bI5SqP7t3ZPLhwVEU5wcEYya7fkJs/lwfHL3i+ENlujKZSpdbem88D
zp/dJ1LmjdD5XO2Rot95wK7MiApMNkJpjaevlbOzwHosKLa25wDqne98Vy/I
Avem0CsB5obI/OSdsL49LBix0RKOI/YjoS85o6/UWCAxyWuowbMfvfUrPfxa
gwU6hZ5u3dn7EPXC023vdFiwKzKnqHtgL4pJW342bMCCI09yfZct9VBzp5vE
lA0LAv64kHzK2uiavU/MVzsWfBP/0El7ooUGSpRpvA4sWBFcsNvsqoU2eUQ7
zziyYOrKoOWtv5row5ek1u9OLBAtTqufS9dEf7lafRZOsKDZxod4yaOBHsd3
9y96sMCpIfHuhyx1dEPovf5vLxYcc40MHtqrjiS2LgivECwwikoWLvBXQ069
h3o/ebMge8eJ5mghNaTO3pK8yZcFGmOOejI5qsi/QtyO7SwLngm5xw4bqqIS
SqDgxDkWmDb8dk8Y2YP+BwbkAf8=
     "]], 
    LineBox[{{0.044949156285461485`, 11.45898515698506}, {0.04496232204515546,
      11.81252666740679}, {0.045024278561362395`, 13.477799826255787`}, {
     0.04514819159377627, 16.815738267175067`}, {0.04539601765860401, 
     23.518798798634013`}, {0.045891669788259495`, 37.01406956268243}, {
     0.046863485985771995`, 63.66169433790784}, {0.04791785493781255, 
     92.48439755307857}, {0.04890171541989137, 118.85249359663078`}, {
     0.049968128656498245`, 146.32618627851753`}, {0.04996862663029658, 
     146.33865785520177`}, {0.04996912460409492, 146.3511290542326}, {
     0.049970120551691595`, 146.37607031908726`}, {0.049972112446884945`, 
     146.42594831423486`}, {0.049976096237271644`, 146.52568615242853`}, {
     0.049984063818045044`, 146.72508910954562`}, {0.04998456179184338, 
     146.73754857064043`}, {0.049985059765641715`, 146.7500076521016}, {
     0.04998605571323839, 146.77492467587845`}, {0.04998804760843174, 
     146.82475416511244`}, {0.04999203139881844, 146.92439489644124`}, {
     0.04999252937261678, 146.93684827598153`}, {0.049993027346415114`, 
     146.949301274898}, {0.04999402329401179, 146.97420613061487`}, {
     0.04999601518920514, 147.0240112718465}, {0.04999651316300348, 
     147.03646160466798`}, {0.049997011136801814`, 147.04891155637102`}, {
     0.04999800708439849, 147.07381031617456`}, {0.049998505058196835`, 
     147.08625912415124`}, {0.04999900303199517, 147.09870755076216`}, {
     0.049999501005793506`, 147.11115559594475`}, {0.04999999897959184, 
     147.12360325963803`}}], 
    LineBox[{{0.00010887863730887158`, -0.42989620216290514`}, {
     0.00012268002536670785`, -0.48472298302657746`}, {
     0.00024535903032525246`, -0.9753790621981435}, {
     0.00025992716216407966`, -1.0340400967486443`}, {
     0.0002752237005948482, -1.0957247403087944`}, {
     0.0002944306323086704, -1.1733098364891215`}, {
     0.0003066985328045248, -1.2229418178627092`}, {
     0.0003212666646433519, -1.2819574253456272`}, {
     0.00033656320307412046`, -1.344014568591602}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.05}, {-206.993215148716, 147.12360325963803`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4692789088211737`*^9, {3.469278948557959*^9, 3.469278963391404*^9}, {
   3.469279204610153*^9, 3.469279212808896*^9}, 3.4692812910466843`*^9, 
   3.4692837643641663`*^9, {3.469287451304944*^9, 3.469287472640568*^9}, 
   3.4692916010525703`*^9, 3.469291820950418*^9, 3.46979251350049*^9, 
   3.469792633950169*^9, 3.469792706596325*^9, 3.469792767125662*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model with linear change in in-lever", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793224224224*^9}, {3.46979579304276*^9, 3.469795796273385*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.469793349824625*^9, 3.469793434749823*^9, 3.469793514246719*^9, 
   3.469793553222492*^9, 3.469794815476325*^9, 3.469794895859846*^9, 
   3.469794967676996*^9, 3.469794998812542*^9, {3.4697950372387943`*^9, 
   3.469795078912242*^9}, {3.469795206200234*^9, 3.4697952212795153`*^9}, 
   3.469795338471965*^9, 3.469795409552553*^9, 3.4697954614953947`*^9, {
   3.469795504380664*^9, 3.469795547116843*^9}, 3.4697959205843573`*^9, 
   3.46979607066083*^9, {3.469796121943253*^9, 3.469796175003022*^9}, {
   3.46979621201355*^9, 3.4697962448683367`*^9}, {3.4697964012182837`*^9, 
   3.469796449248075*^9}, 3.469796545393701*^9, 3.469796630048656*^9, 
   3.469796674011136*^9, 3.469796729507155*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", "1"}], ",", 
     RowBox[{"k", "\[Rule]", "1"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".5"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}], ",", 
     RowBox[{"B", "\[Rule]", ".1"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tSim", " ", "=", " ", "10"}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}, 
   3.469793317289383*^9, {3.469794873587481*^9, 3.4697948877388277`*^9}, {
   3.4697949372558203`*^9, 3.4697949463186607`*^9}, {3.469795029459815*^9, 
   3.46979502972163*^9}, {3.46979506811007*^9, 3.4697950682836447`*^9}, {
   3.4697951513781023`*^9, 3.469795152016755*^9}, {3.469795214877927*^9, 
   3.4697952151716547`*^9}, {3.469796040816152*^9, 3.4697960975709667`*^9}, {
   3.4697961289659433`*^9, 3.4697962417324753`*^9}, {3.469796394812394*^9, 
   3.4697964459414062`*^9}, {3.469796669019246*^9, 3.469796669673531*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]N", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"k", 
             SuperscriptBox[
              RowBox[{"(", " ", 
               RowBox[{"hIn", "-", 
                RowBox[{"B", " ", "t"}]}], ")"}], "2"], " ", 
             RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hOut", "2"], "m", "  ", 
             RowBox[{
              RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
           "0"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
           "\[Theta]Initial"}]}], "}"}], "\[IndentingNewLine]", "/.", 
        "pVals"}], ",", "\[Theta]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469792394632051*^9, 
   3.469792431184136*^9}, 3.469792734935874*^9, {3.469792971685051*^9, 
   3.469793046089113*^9}, {3.469793130677544*^9, 3.469793135285651*^9}, 
   3.469793338946413*^9, 3.46979342479906*^9, 3.469793505212208*^9, 
   3.469793548118333*^9, {3.469794800118528*^9, 3.469794807726589*^9}, {
   3.469794917950418*^9, 3.469794941062234*^9}, 3.469794991848013*^9, 
   3.469795044349578*^9, {3.469795183154984*^9, 3.4697951841228313`*^9}, {
   3.469795268273343*^9, 3.4697952687515793`*^9}, {3.469795324490458*^9, 
   3.469795324802168*^9}, {3.46979540098304*^9, 3.469795401406431*^9}, {
   3.469795454755315*^9, 3.469795455065174*^9}, 3.469795499669457*^9, {
   3.469796100972374*^9, 3.469796102084485*^9}, 3.469796492402645*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"k", " ", 
            SuperscriptBox["hIn", "2"], " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hOut", "2"], "m", "  ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
          "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
          "\[Theta]Initial"}]}], "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.469796554107567*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], ",", 
     RowBox[{"\[Theta]N", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46979516371416*^9, 3.469795187297618*^9}, {
  3.469795486098325*^9, 3.46979553974032*^9}, {3.469796104493462*^9, 
  3.46979610655263*^9}, {3.469796520001586*^9, 3.469796539545178*^9}, {
  3.469796580705709*^9, 3.469796584356557*^9}, {3.4697967088608303`*^9, 
  3.469796714451877*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV12k8Vd3bB3DTOWcfU8hw9jFHlKRBgybrKvyLJCkpuckhlNJ0C3GXIpJC
IlMZiiYRpVByFso8ZAhFZS4cIRpEedbzan++b/bn2mtd6/qtrck7anNAREhI
yEZYSOj/nzfP8JjLXMONJ/RNd01rsuFVs4alncZB9HOjp+sU8Wx5cZCGhh+6
FisSO0EsHf0sR7z9PGJISQwMEt/EV9QZGmHITifErpNYf9Q1YtY9EvF+eQ9W
E3+QTv470xaNGpd/SHpKrH2Hver3dCxSUeN73SA+vMH7yE/1BHQ5SZ13lvhJ
S1f6pMkNtGq+6ClH4t+elp3j7ilous7rwRriVOHOsJ9maejyRo9ZGWLTuqvz
f7TdQs6vvv/bp8GGL/GbSyYPpqMSQzWJPOLLrn8cJqYz0HPGYMlZ4uZpj5gx
9fsoISPkqgTxqQq1paO5D9C5fZ4PatTZwL3WUjNi8hCJmSr2hRLz9EB02P0R
MpMaLJxUY4PI9OmGyYAcpHpDd3cGcUuXreqkWS56Ubh3rg2x70OJwm9tj1Hy
ldqxFFU2WEQPML+lPkHv8hfIbiRW8S3ZNX4wD73a88jmowobsInP2Oj0U+R4
ym+NFDGro0d3RL0Q5da+iVvPZUM7fukt+FKIghdZlhXTbHhwJ75sOPc5aj8e
ILOB2OqEldOQSRFK3mgpY8Bhw3X28+uf3floVufv3W4FNuT5WJw4ycGoqf54
rynxjaHV9EQARo4/LDamy7PB642c+zezEiTmctXVbi4b5G5Uioy3lSJDnrll
pAwbpqWf3T+2vgy9CuffbJ7Dhr5zt63HUstQ58hxOXniZ+5nkkcPvkIzLBG3
MCk22BuuWPt1+jWqvLmk0EycDWnVKceH1avQ3m15+gxRNkzGP9X7dLkKsb+s
SfghzIb/udf0Nk1VIZn3C870CrFBIPrT9nlzNZr5LP740V8KjDZYrQ0LrUW8
mJAK2d8UvHk0I6I72oB+M0zfzYxSIIfYjlIGb1B+9YX+jK8UrNOJWRvq+gZt
CMs5YjFCQcTk/YnTjW/Q0eCX3y4MUbDi6tsDvMxG5Lu8prW8j4Kz1foWy5ya
0ZdnspuOtVNwLzdfJzO2GS1ctFi/sZWCpvhNovNrm1FSyvnri99SoO2+p4iz
pgWx9kqOtDdSUC0abCA09y2KsFd7MFVNgeKGDrmG8lY0EiOS6VJEQfajsI7D
Bu+RqvqtBZ1JFAzJDV22cH6P0i7mdzclUKB7ysJ4Qcx7dKgVCl7HUZC6XiKt
d+o9cvKZLk65RkF01WU3+9cdyCjKfP38cApO9UaOb3b4gFYly2465UdBikRN
kKxZF8rlP/i1fCcFxhv8HQIdu1CbaLlktjUFnV6LVo76dKFvBj3m860o4DSF
D9Q+6EKDt/OBMqfgaryl+UWZbiTUuUw/1ZiCoPn10rMd3cibt8qOs5ACd9SY
IDjRi+bveC26eJoFQrd+PO8I70WhLWz1Db9YEC+m0lmd3otuXR++bv6dBZVV
bmr3W3tRJNcm2W6UBQt2zdw6sLYPbfy0h7OllwVfPHQffhTuR2V/wjT8q1lw
KPq/4jdRA2jBPcN2/ess8Opf2JuXPYgKGu+6dsxjQZfjO6qkahAVmZ5c90SN
BTvbLxrU9Q0iqV1a4yFcFhjVfPbr5w4huTWLZzTlWCCamyGjGDqEPkxOZugI
k/oCNI19nIZRy2LtiUMfmVAyl05YIzOCTBZ8GeuLZYK4ZrDuJ6MxxF3bXFL7
iwGV668uOWM2hhzHtgtPTzAgZE/yalWbMQTt4a3zRxkgElWweZ/nGHKJMzE7
3s+A338F7m03x1D4bNeWT40MGO60vdcgMo5COcIxnAcMqI3XXYhrx1GidVc2
Yw8DImRq9NL2TyDThBW7ft4XA17HLr5o7Q/UWGAUvZQhCsdfB/OO6v5GQZyZ
LrHlwpB7THInx/wPEmm6ay6U8Rel+XsOLbUTgiPKwjlh8BudT5nZMSkQhjsv
g5Qser4joeYuKDotCnV19f3pruNI51833116DIhb/CLe9uEX1Pc9brfESyZ0
bl2w89HUB2TRf+i/6OMUjG8/3bzFugRZ9UUtUlMTB3qzUPHHokr+UBkvsDJL
Aqxr/36Bzk98A9lWVRMnKUj/IhZ/fucQXxx9d+6ckAZbZhae0zPO3zxi/3Oe
rQx0ufnOJNb+4LeXugrb68vCHKuktp1O0/ynF185anyXhR3lw1ISjrN8N4Z3
V329HOyNO1r4PEsYu5zwfyqZOBfWHc2evuIgipe4L6q3dJaHeirgR3yzGP54
UP1olqs8zDQLR4a+E8OXD8+VkfaQh8uHDY6d+CSGB49P72jwkofeO6bUhmEx
fDug5u2OAHkIbmGeyBBhYKVozw+74+ShY7OaSelSBp4tyhTsr5OHHxtyCrQv
MXCDnL6E9xoFUO7Pkt+9jImNjxwZTFqvAD1LrKR+r2Ti7IrsilKkAJLT+64l
rmXiiIBlwTL/UwBjvW7TRhMmthxY9SfTRgHMr8ctVNjNxNWFG0d7PBXAYF/G
vh9+TPx6v12zdbICLB3UiqD5TLziRXyuT5oC9M69/35bGROnK7yPTE5XAKGJ
zOQzFUwcXO1gKXigAP2WVy+9bWDiTSt4r0PzFeBrRvmnPV1MjFlH8ovfKMA2
McnxPCEWfpF9PklfVBEK11+0LTZmYaalLTeOqQgr5uxvfLOJhXcM6iYIiyvC
mGjAnE//Y+HPWnXXW2UUIak/vOGrFQvPTVCKDlRThKtdoRYdjizsGfTwYssa
RdDZ6HTp838srLyn1TvgmCJIZH7eVlnAwm7f700OnFSE05URj3cUsXButP/J
HT6KsKjApqyVz8Kb6zSO65xRBIdHqQPN5Sx8cpPn4TfhimCfFjEvsYWFa/SF
XLTvEp/l9NmOsrC/sJ517QdFiPF9ZR+iSeEBU4l2nW5FmPoZpXVKm8LWFwVO
5/oU4ZfUpmxnXQprz3l0dNWwIqSamrH0F1O4VmVFZOovRVCKSy28YkRhNSPj
+n/nKkG8V3pOsBWFS71sLFXNleCADTNugw+F9R8btvhYKoGih9PDdD8KX/8u
79C0XQlMfqb/ywqgsGdAm2fobiVwH9miggMpLH/JIXzcRQnmBLsV/QmjsFuG
W/XrM0pg184cuJ9EYfHO01u88pQAFSxYXfaCwqt87ktF5itBX+F/U2dfUthZ
rr3p0XMl6G8InzDiU7hgy8p/xrESFGiWX0kpJe97Onr83zolGFX33YmqKFwS
4Zp0ekAJmNTH4cq3FBYsvLY/aVAJLh7ykjBvozDndcn8IoES8B6XO75up7DX
tFrOn29K4PttIOVxB4VVPN69CpxVgrqX2Recuinsu9HqawiHAwFKFx+JCCic
3hnw5K4yB3S7E8fNRijc4JPpW6nGgSJh2vXCVwrrZFOi4vM5IBUU8+7XGIWb
uWVKV5Zx4HqVrfDj7xT++3S8M2sFB2RPXy5p/UFhvR0at+pXc8BHoyDn508K
B4b+py9jzAE/Q2Nlg98UNphcvfGaBQfMnW1VjvylsH2kGzNvGwfSEs9uPzlL
4Qt6sTUt1hyIx9tyvIXYuHP/N1tFOw7ccjP67SXCxpfqHh5KcOFAdC+dachk
4/47mjEpARyQkY10ZkixsSC4e0o0kAO2tsp6n4i/8dKcPII4IL/X73ieNBsL
qWsuWnaJA/ck5AJ2yLAxN06jtDSOA3tP5gfYzmVjTe8uXd0kDpx3rFstIc/G
C3amXglP5sDWifhjRcQr52js3ZXBAWHvJntZRTa2DlUf639MvgdfkL7AYWO7
A59sLZ5xYJ7h7yeKNBs7mqS8yC7kQLPy+tbbxJ6zaqE+mAM7ksuicrhsfOLD
R0FHGQfWfm5fsFSZjX1fJNtABQdWie3bkEkc4qOmxq7nwATDquOaChtfsf0Y
dKSRA1+VYl2FVdk4xjB5sLGFA6f3fD94iDhtVPVpYgcHCrOefTFQY+N7dR+4
sx85gLwmnS8RZ2feDHTp4QDjqZhdN3GRu6ql/iAHzik75Z1TZ+Mysw+5UQIO
sN0uq5D7MK7Wuqn0fZQD/pdthGQ02PiN8D//7Z3ggJh+hpM1cdsnld6XPzjA
z/Vde5n448vOLfN+c+CZfWlUGXFf0o3skD8c6Db05f0gHvZzkB8WomEx9+oj
bU2yP3Yqp7eL0eD/XMzXinhqZeenJywabl6teXGSWEj+hhlHggZXwcfTMcTM
b/syA6RpiPps9DSHWOqNsmy3LA09R1sOVRLLZ3ecMlOgQXpTVlIHMfdyUud9
Dg1VQ/zNQ8Sah/ZtklahobicfXSSeMEW5Xsn1GmIFwmT/U28RKdDqm0eDTOJ
65eQ/yG8Sizp5DodGq44aFf+JF7fY/8uZSENn3uhc5TYBHOR2GIa7ty85tlL
bJH8Pt1jKQ3O5WqnmoitAxLF6wxpuH+of7qI2M7e/tiy1TRIug/P3CJ2NOK2
xq6lQdZjpV8w8QHF9+t+b6Bh3VDlMWfiw5MJaY4baRBZ+7CX/P/gE017WWWm
NLSfHGiUIvbLoY/obqFhfvDZdR/I+gZGvGsK30qDiW6gxj3ikMMJRmNWNAQP
jgd6EccsoMUKbWlwkNyZN0L218FR527vHhpKxpa7ZxJrxxhaSDuQ9XX30DtA
nDe7LcqFR0NWtlBPLemXgJX7DCMO0FBm7996mtjU06O1wIOGRmv/Dm3iltbz
KtJHaeAnblQ6QvrxhmQU3+gEDbqF2lYSxK6bbvJcvGmIfVYem0H6eTIr/16B
Pw0RmaF29aTf514QrHC5SMP+Kz13xsh5ef98qu1KOA0PeDcPHCW+Ncb0L4ig
AbXdXTlEzttyB80SqVhS75NZdosSG9sY7t5WkEZDp6VeiK8C2f+DLmM96TRs
66ptbCPntyf52DWpezRs3uizxJD4hHj4O142DdxVWzU/yrFxdDf/gNQLGo4M
f+kWI/PBXqmOMiqmYSSpGJvOYeN5295n8kpo+JXt/ziQzJPHBZPj+RU09Pno
Nggk2bgpcuEZXgvpJ5fKsVg2Gye+XqV5pY2G6Ht2h55RbMybNnmV/54GDZO3
P5tYpP/dHMWlumlYnaq3XYjMM1nja9fzR0h//GsxsYjMu/aTqWt6xmiYvbpL
ZrEwG6fez+qUnKRhk6X/Jj0yH5cqVM7j/abBx6VkgEPmqbVgJluSxYX3nHLD
iikKRyW6VThrcIF1y5XpQea3z6nzJwO0uKAi0tO8dJTCjjbJ6nE6XJCWsur6
Tua/vnirT60+F+R5Oc/+HaZwlZ/ZgtVruJDFG3c0G6CwyF7tMEkbLvR2vqta
TvJlcAWs1LXlwuLIgpv8dxR+I+PQvXEPFwxc8ZMtJI9SKq+t8XHkwvzGxXe3
k/xabyQ61H2IC1PPG3KXNlDYW6nHIj+IC3IRFy8hkn8OE39+NIZwQdvmwY0o
TGHTBvq2IIwLXf38yQ/FFJYL3TGtGcUF+8ZanyMkX7N/4MzLN7iw4GThG6c8
Cn95myLJe8oFL2c58egMki8x/9RLfuZC/nhZgsEFkodPxJU9h7hwsLFb+P15
Cn9qzHevGuHCPW6i7DmS765z5IRDJrlg1hi8sNSf5OmlcsNZYWU4b8zdLHOC
wucDlySMqyjDiv0hiZ3/UPj+YWHXVhtliFPJbTFaTuHD4dk5K3Yrwz2HA1L2
S0jePdj3J3qvMkiHnJs5pU/hx5+fXt++Xxn+Ofx39rYOhYt4h6oqjyjD2m8R
D6q5ZP32NBu8uKgMSzQzxbaKUPiXacZUSrEy5Kw7d1+5noUDXqQEvSpRhp+Z
WitGq1lYaHmi1OArZTA9XyPHr2Bhlnqk5vIaZXB9qVW/s4SFFad8zV+1KQO+
22WxI4+FDbMsE76MKcPlqoK6Gwks7KUwabRMSwXiV7Sl+DmzcG//Jt/SUBVQ
cVwYdHCA3DdT6m/phasA6/aZY3+7mTh1j31ddIQKrB46sjryAxM71hyf5xKr
Ao8rbGzTW5j4fU5qrehtFcivH/x8o5SJm/z/apgVqwDT2EWj8iYTl8o+r6qY
VIGDB5zKJXcw8a0Ny5TrnFXh7ML0q4GZDFxqJR407aoKI9cTPnrdYeAep96h
hR6q8NFbjb83jYG1zsc+D/FShTo5aeP5cQycXj61F/xVYd9bXYtr5xk4Y3tp
/JMYVZD3nmdTu4eB7znvVEysUAXZV2sn88n9P+uCt6z7YjUYNHr4NsNSDIfa
umwV/U7sxphpLhXBKzvT7ofWqUP6P/M+r+8TwvELk7LqtmrAcrrStHziD/8s
vhK/tVADrHV+RWj4TfG3KdtmVGtrAmu+UPfb6kn+Rq+KfbJhmtC+pXf78Oox
fooKT7v2uybY7Ym97bFogK9ddve61b55kKNwCx151s6PWlyq11Q8D76YdYxV
jOXx3SbEGqv0tIAxdcCnqq8B8XK/aYRFakHlqdcvbSu6UWU1FVQ0o0Xu5zMa
ySsF6LBJd1QV8ZmHhax3qwRIpqgwuZX45y/zkblGArQn69DzMeIln/rywtYK
0OfI2nHtP1rw6rjIKm8kQEzbqP1XiJPXNM5uNRcgk09Kxo5/tcDjtnPuLwcB
GrAb2+pJ/EXd+4ShowBdelO515d4yM9+uZeTADWV+HlHEzddTczudRYgXnrH
w3LisJ6v8fVuAhR4MEV5yawWuEZ3rkg/JkDaPT4L1xP/W8rq/XhcgCrtrVeb
E5/8KxpFnyT1WwrvdCF+d+DoQIS3AKUYuFyKI84Mkrngd1qANt1dF59OHJhe
ujDPn9SnLn8nl/i2h1nd1wABMpB9XVJDrHmnSMb1LKkv7GZDO/EORm5OcqAA
nRI59aGf2L7Ze/u7cwLE9bca/kasISoxMjdIgIondKZmia+GHguzChag/wNV
MpD6
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4VV8XB3BDuNd4j3mKe88VhUgqKTqrUBlTIUlIIg00mDI2IGMkIYkI
yVTKlPw4iDKUOTKUMktmlYh3v3/d5/Oc5+xn37PXd63NsHc9coaNhYVlOysL
y/9/H/nbc6o5hO+ZV9Y1W2ZQ4W073egY3Zlw59M+vYS8Vldxi06/RugYcsfN
I/PHFL/g7r5JGD+m/xhHfkRGynLQQ4lvnSsOfcjK0w531pyiCGu7APZG5H7+
5NWVrhiiMEGqvghZLpO64+/yfWIhn16chHxB2/3ib9kHxBHtmMYA5FcdA+kL
OklEA2cuty3y3/NGfbNOKYRo9zO3XciPWftCf+ulEgnadB5BZN0Pdzf86koj
OJIqm4fpVBhLOFC14JxOiOuLvS1CjnD4Zz2/nEH4ZViO30BuXz4bOyP7jAgx
1mvgR/Z4J7NluiCbsOw0C2mWpYLkvY7Gnzq5hIZyqU8Esr0isP9wek60q5ty
LctQgW3Zu3nB9wWR+lUgLRe5Y8B8/YJeAcH+EPe0QvbK5Xk91/WSeF2q2Zm9
ngoGMSOcc49fEQFaZXbGyNJeVWazzoXEudRQpUlpKpA6njPTy0VEzAs8UAaZ
q/e7wk/Z1wRn2xEHC0kqdJP/uU+OvSYKHl/n65WgQnZmQs2PgjIi6gmNxRrZ
5IqJ7YROObGG2dQdEadCHLUsbtSpkqgXFlkWEqVCoafBlaviJJGb+0LQR4QK
SRMaEvO+JHEiv9nvizAVXFoEneb0qgjdoy+OJgpRQTDpPdtsVzXRa1fMGKFR
YZm/+NklrRpCyl9uSRV56MYT05nHNcT4qqGKhwAVip38k6ed3xLtiYPFv/mo
YKW+bdfUci1RyKFyppmbCqkNKZd/yNYT02Ycx9rYqbCQUKT4NaKekHE+d/gj
GxX2OzUOti3VEwGZrTJ1rFSYZP9tXtbeQNTs19V8tkaBndomu0JvNxHB3KIP
tZcp0PJ8hU1huplwL/oX9HiWAoIE1YZPpYXY6urjaTVDgd3ysbtuO7QQMnui
LGjTFLiz8Gzeu7WFsHDZMOQ6SYFtdzvP2Oe0Enh/z/nVEQoENCgbqNm2E9vi
P6Vb9VIgq6BEPud+OzFnEbWz4zMF2hL2sW9oQs/Z8jr0uykg52RZLq7ZQbTs
aFPe1EmBBvZAFRahTmKZ/BVe+pECotq9gs11n4iIfK3rUlUUyH8e2ntBpYe4
r0TIrKZRYEJwIsLgVA+hdHZsm0wqBRQ8DPZsjO0hnjcf5NidQoHHWjypg0s9
hOrEm+5zDykQUx/haFXbS3wntC8/uUcBj8Go2QPW/QR/xc/ka7cokMLTeAvT
GyAiVH2Ta+wosEfbx/q6zQAxlqH/0M+GAn0uStunPQeIL/mb/bdZU0C8LXyk
KXuAKOt/v5xwjAJ3E4z0Q2jfiKYS+j8tEwrc2vCRf633G3HkwY5Dc7so4ES0
Ppi8MkiYJRiPSQlSgCXtV1lv+CBRYreWf1OAAgnrpPsa0geJGDvIGOGlwPt6
R5lnnwaJxfKnGzK5KLDRbCXtzK4h4qpXWCL7Py4YO6uQ+4V1mBglt3hpjnLB
uRi/ipboEUL963PJxNdc4DK8abAwf5w4GqlywdOCCwZsPlOq6seJBOfBMz+P
cMHR7hCVD0PjBC1B87LdIS7Y2Th6bVhygsgWMqzRPsgF7AUZNNHbE4RCoO/N
Tk0uSPBl7PG0/UGck5fo9pbmgiohiQeatJ9EEUuAUtZXTuBmBCp83TlDHDIv
Gxk5yQl3aI2KqXbzhInaKV7GYQ6w7zWrZG/6RZxZmPh5l2cdXK4NtHdV+Ev4
i/f1leWzQcEl3qPi+v+IYxo7HhQeZYVUn/MTW46xgO7jffo20WvEzZSVwwuT
rNC3+NJ7MnqFYGkfgHJvdqBzzRfvC18i5N0cvcwUOSBzq+WzULVfxNBivAXP
f5xQcH9vmOu6ecJg+JxfzGUK2LefumovOE2YDEUrychwA76nfDtFdYyYqLG/
/j6PBw7HqlcslX0jVLBP63Vs+cDkqhs368VOgptYPNU3zw8NwW+145JJ4sBP
q9+4OQ32BxV/VUwtqeyudmC1UsYgpLlBR76/vbIo5K0NfRGDZm3jjGeXBiod
OdwHPn4UhJXKqak4/9HK01d8ingThSBa+J6Cv/BUpaqT0kejU8LQ/Js0SNGd
q2wWVOZx1xSB6mChKuHaxco3+TcfKrOLgoRIitdF6lKlD6uiaVO/KIR8G5WW
vrdSyd3nfdClUAwSB0jJAxws5HAmIzbFVxwKf+SIkKmsZOxGiXWvzSVgSydr
RbgNOxmd6PjuFF0S3vz0Panydx1pFXvyI++oJBgVFwuMhnCSf3QzllIqpCAP
r06Q20ohB4f3eVXflgau76Zs6UVUMk1bTerDqfWQaXTvWogRD5kX5I45bZYB
f+Etze9Kecnb5qcN2RdlgC3Pw/MhDz+5vS/12e0PsvAd/9y1yV6ATNj0MO+D
IR3Of3Hi/LKPRgaQkQmGr+lQuU7fOekjjZzoJ2OXyuhQmlUjFd9CIy2W56Of
ltPB4qirR3QbjVTeYRXKTtJBnY/KCPhEI7tz5L3f1NGhSIZjm9EXGrk1vvKE
Ugcd8tlOx6X/pJEjF2dleKbpsKG5+vxBHow8HC4n9XqGDl3aekGifBhZnnVM
zGmODvGhvMqD/Bh5b/A/gZpFOrDHra73EsRIOB7G4rNCh5lsT59oCYxM1GV+
n6Ay4Je4hbW3AkYaS5lnNMgxYPP3+izlfRiZMKRCnpBnQJf4+HK+DkYO5VF6
JxUYIC5tt6Cqh5G+UE4TUGLAoQDfts0HMTL3DNP3qBoD5CO9VCVMMJL7xeyR
Pm0GxO13aMo7jpHvdO+wTFkwoF+gJazeFSMF+c9KBVgyQM3Fc4PsZYy06dq7
g2bFAGf1qyZXr2DkL+fF81tPMiBgMOCgmDtGykdZd3mcZgBvStR7Y2+MDPys
mL/myoDluL3mboEYudfl3QkslAHF8bk30uIx8m/3+P63YQyY9BNU/5aAkYU6
vFs9Ixiwj7pTVCYRrSdxmNIfxQBV89WLMUkYyfu2pzArjgEcxmL6Z1Ixslti
ig/S0X79pHpeZmNkTCBtaS6DAVxBh3d05GCk4fTWoYynDDhZoVQ0n4uRFW89
y3hyGHD4LJvY5ucYme7K6tRVwICtM9mmoa8w8lKtMOlSidZPU3838gYjFbdo
5DCqGMCS9653vBwjBxOPx3VUM6AisYn9x38YaXEp+cKuOnQeicfDRisxUktq
owTnBwacaGq2qK/BSMrl3Vce9TCgfthdTLURI1Ok7eWaFtH3Psd127cbI3ep
K6nY/2ZA+ajqPvXPGNmhv6Dx5w/aP+eF7WPIFM9gQ7kVdP56LFVGvWh/rdlX
fNlw0CiotGD5guoleJ5UFsBhUa/2A20QI3uSyhuqaThwP7iRm43s9iqow1IQ
h0sBHcX7hjAya0BsLFAEh1+3ZAwvDmMktltLoF8Kh4xJR+vcUYz8Ph14MnIj
DqsXx6+0/kD1w2nixFTEIbDbNs94EiNF14tdfq2Eg4jnNOd7ZAODZ4HDKjhs
Or1buOQnRr5M/5CjvR0HdGG54T+NkUZv4orad+DgVSia8gN5pNW20nknDj3d
Vp0WMxgpuTbbdn83Dr5bLUMVZjHy1nHRvz/34iB+3mypYA4jZS59ZQ/UwWFG
4/07gXmMLA3O4pPUw6F2pDfrPPLkq12M/Qdx+BlZm7J+ASPN+G0PJpvgcCr8
k8G5RYycktt4ZJspDv7FfgmlyCG7Z080HMbBljt8bt0vlMezt1x/meFgIF3+
Ph5ZruZpnMkJHDrw4tGM3xj5UflPep81Ds0sCUaDyF5xB1+ds8HBhmHTKPMH
Ixudx5uDT+FQk5stFI3s1q75Rfg0DoN/y3prkWW0wybTHHBoPFJTtoR8haZE
rXTC4cfNlrITSxgp7e0jZuyMQ1WBbU8ocu1g44beczhoJSzzFSOLl1zY9/si
Dn6DLvmUvxhZTf/PNMgVBzXpVglV5AthfLZCl3GgFpnHHUWuPJnvo+qGQ7dj
X2Uc8tl3q6H/uePA2+t8vghZUO1QgqEnDj6OWza0IZcnpmR+9sIhbNB9chLZ
cd1MoZM3DqLEdZJjGSNpLlCz6IPDe6/7j6WRX3dFt97yQ///yXK4GrL93m9f
sQAc2Ib/3NBF5s1Rm0q5jsM1z/Yb5sjFwjdXNt/EYfZpa5gDsp1/G3f5LRzE
ujSTLiNzj+ESBkE4uFw7UuSL/OrwVYXuYBwyxew7g5Ct39RsdwzB4bfJ8+UI
ZM4NwroLoTh4tl5XiEF+ccfhyM1wHNwc11veR7b6U2hHi8ShaaIxIg55nT2H
a/IdHA4cbn/7/+f5jeZ+ytE4TKZ5r/3/fcvtmeFld3E4uUbRuoPMmvLrwcF7
OKg+qr12GzmbciDrUywOOg2/S/yRza7EFzvE4SA5ObJ4FXm1d/TtXDwO26/3
bHVCztLb2X79AQ5O0pIulshHnod843+Iw1bXn5kHkJfFP08nJeGwHpL6tiGn
39y0qpiMA98lF346ssnkNd7XKTgkL+XspiL/MW+QPJCK8jGbdHoGnU9apeSm
zjQc3gSHBnUiL8a80ZvNQOfT6FH4ADl5hccs4CkO3+0opBfyQUdre75nODy1
Kak2R07S/Oe/KRc9vxudTUXe/8Q4siQPrRdpdGcA1ds0b/JDvec4lAToOxYh
7xvYU3rqJQ7KIkozlsiT+lF1069w2HI+7bECctyrrx1+RTgw1l/ft4Dqezz4
+uyDUpQ/w/vHbiNHb65WbKtA/alU61Usyk/WzhPUmyTK/4VYRWPkSp2FUbVq
lBdlQ1V25Knj8hl3a1Fe/tPod0J5NAwOkz3chPoZT22BEMqv/V3mKstHHEbf
NnqXorx7J5X3vWjG4arR33or5KyXUw9o7TjofdrxOx71B86vR4RbPuNg9RBz
W0D9Zf3Ej7mAXtQ/5DXNg5C3LQa2qvaj+pw8WSSEfJqn5E7UAA6dn/imN6L+
RGpIUQ+N4vBWQFJ1+xRG+kQP/vuwgN6/tFOqYxzNm4e+fX6/cBDYk3ZDCzk7
U+TN5j+oH+76Ypk2huZT+QGvyGUcNA8bWDii/rpjPGfOiI0JJxQvuTWjfjyz
1220UYAJbYXF3hu+on5vzFfngzHhSe6tIAfU32UtM9OVhJhw5prG/ON+VB8u
3afCRZkQYfJ9HuvDyJxErT6D9UzQ1NK60oHmieP8utZ6RSb46RU+6WlF8zpb
96O1MhO4wrL01lrQvDoV2Di9mQnyf1XvM5D3N7PXiagxYWp19y7bj2je5rC9
OaXBhOJ21dCKBowctmfJWNJhwvLivTReNM/6JCAtQo8JTfnKTTzVaF61BKTI
HmDCTtfABEoVRr7ds/ZAz4AJChtrRZcrUH1Lrt65a8oE3pejcTVlGOnQtuy1
6SQTKql+2PcClO/Q3R7lNkwoUHUXe/MC5Qt8rh6yY4LTsUdFd9F81s3/e9H9
NBNsOIdKNPJQfw5bsq9yRlbaWO2Yhebx3t9Gxz2YwJrmcdI0GdVHwRw9NIoJ
fJkMwjgEI99Tfaa07zJBo8IjtTQYIzfbs5fPxTDhuUigOCMI5UtQ+Jh1HBOu
WeXtHb+BkVFu2yNVHzHh0efkcxY+qD9qeC11ZjPBOrL+/JOLGClS8a8Vr2MC
c/nHJJspqj/R4JSud0wITzdwFUD3qQEX/osR9UwQH4qcEjdC9y1ZWcqvJiYE
BU4O4Oj+te8G7KlvZ0Lr86M3BAEjXXRvZbt+Y0KII0XEThXtt4Fyq3yFCbGO
zIbn6P54QedbdD2yadXdlUfItPLXyZ+QUzgMVSKQLfPOlc0gX9+fHHUWeTSq
aVbuHxP2hr3TZyBzmkfbRSKrM+SSYrgxUuer2B6bVSbcbfhX6kZF8/jYjOF5
5Jtq7zrskcNa3h/3Qo6y6Z02RW6ruuYeg3yHc4i5Gdk+vTe3Dlnd1ePWMAUj
rzunSKmuMSEyJ5lugSz33XOTFnL8tJCaLvJ7K1MNfWTaWDtsRaYZsR49jfxt
Vt2GHzlF5XRYPDLdwC26jgt9n6e7E9KRSwSJh4XII7LCmQXIY8FmGWnIKlht
VSPyi4u2Jf7IbaGPmruRhb6YVV5A9mDz6B9GzlqMrbNClvQx+TGHbP5K9sNB
5Ip5+aU15DWRxbYdyP8DBQrorw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-4.495691490121953, 3.1415926535897767`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.469795164300488*^9, 3.469795169721143*^9}, {
   3.4697952063784113`*^9, 3.469795221486446*^9}, 3.4697953386384993`*^9, 
   3.469795409771649*^9, {3.469795461673874*^9, 3.469795547361058*^9}, 
   3.4697959207995663`*^9, 3.469796070896638*^9, {3.469796122145447*^9, 
   3.4697961752461443`*^9}, {3.469796212196525*^9, 3.469796245049602*^9}, {
   3.469796401429134*^9, 3.469796449471758*^9}, 3.469796545639184*^9, 
   3.4697965850508423`*^9, 3.4697966303243103`*^9, 3.469796674223893*^9, 
   3.469796729770768*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
     RowBox[{
      RowBox[{"\[Theta]N", "'"}], "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469794826644672*^9, 3.469794854932931*^9}, {
   3.469795024087844*^9, 3.469795092014573*^9}, 3.4697951960266848`*^9, {
   3.469796113066903*^9, 3.469796114355788*^9}, {3.469796599637516*^9, 
   3.469796612718047*^9}, {3.469796719259061*^9, 3.469796723148695*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VN0bAHDLYMZOilLM3BFZ2171lnQeiRbRSlljVFKREolKstaPLCkJ
SVFKkaSy5EiyZImSJEqypBRZZu4Q/c7713y+n5l773PPs5wzHN7hbXvFRERE
boqKiPz3mXaaJ7l4z/9WF3vHPHcKDS+rfMvetJPtiVJrYt1HStzx36qyUDb7
BIoXRr9/WeKL08pjNCXY59DGv2robkkoPmTq5yXQTEZmIUt1I0su4reT+xOH
Ne+gFV37A9glN7HUx26dn5pFKG+07eKVogKc8Sr9yA/NWhTzoUkztOAFzs07
9/GQUTs64ZZ55sjBFuyBmpMHj35F3xattZSf+Ql79+p+fZQ7gO5uUpfbcOMr
luaE6Xz+dxjFz9icFOjxDV9QrNPLcB1FD9xNN1xKHcS8jzuweD0fsV+9aL/q
NYyPvAzjHdaZQEkfrqjs3jGC831kt6ttmEJRJQ5VYoOjOCPo4PdFO0VAZ/BS
cZX3OF5UzqIjnUVAMUErjvYdx+WMbInP7iLASHGR0jkxjrtietgxPiLQYJb4
/kToONa47rxz4JwIdIfs/sZPGsdXKzdXZpSKQM4yUTWb8nGcIPfPNWVKFIzi
OhYelOfjs+l/to4NisLz4//KLLvOx1sWPT2iPyoK/kPX/I9l8rHGc994nlAU
WjPtjudl83Fx9/emJgkxqE82WKaez8cj8z9svq8hBpabC5Jqn/Mx716h9b4t
YmDz+KtzSDcfmxV5b2grEIOYz215uzgCLL9Rz1OhWAzYzU0JC+YLcEd7b5Rl
uRgsnJ8rGFsgwAF/nGoe1YvB+ujGtaGLBPgBsloX3ysGLsySDj8kwOwqHYuN
quLQeTQz/KGTAIu87YLSQHFgtGZ+D08U4LCBsozAEHHYs/OMvtEVAWaJpImt
iBKHeSccTN6kCLCyoX1l4SVxqJD3eyl3U4DnRzavy3sgDqoOdke25QvwRpMK
mxt94nDkwturSg0CfPHmTaeobQyQOuY+xhOlsVpxyDNLewZI+1Z2hzJonNq0
W0PClQFV23ujr0vR+NaUeleIFwM69ixWbpCj8dOdie5BUQww+XG7eWQ2jTtk
wg94lzFAjLXsns9iGmsf2xewQ08CDqvPWrHEmcaGKz9vT18kAUujEh3SdtP4
H5FdC78vk4DLo4wnDB6N10Rv6As2lwBWNtKs2Udjl0yDHTlOEnDEre0Gx4fG
l1tGForFSoB0uqu25lkap109KGN9SQKyx7PrrMNonOna05eUIgGnry67FRBB
44eD79IMsyUglF0nrDhP40ZGkYz9cwkIX56ipHeRxhLGwf15oxLwtOtdidlN
GstOCiomhBKwdTLkwtIsGis/97lmISIJa985xXNu05htzbP9KCsJrc+8tEfu
0njVXosXktqS0L2gKnzvQxofuyST7rxLElzSYz8kltO4ZzzJTuaZJMDzMP6M
dhrfMFvq2/lCEiTvDafe/Ujj3TGNsXmvJCHatK9sVSeN27Ukare3SYJ868Zj
27to3Lz9qEnqqCRMuy9M29hH47L8TWxDPSlYk1GZs/s3jU9O9a/6u0gKxO/Z
fr8/QuMVG0Ltm5dLQW2Z2XXBKI0fdRUl+FlIgTN31ZFTfBrfVdCRKHOVgg8c
14xtkzRO8hL9bpMkBTJRVtJchhDvKEqV5FyTgrv5azMXSAixssS/3NFMKbhs
aPpQV1KIL6R6OyU9lIJQlaO6GkwhDqv72Pi5QQr25oufaZIR4jWqx3/kt0jB
9SeswnxZIf7LU2aGfZQC0eAHThfkhDhwYr3ZggEpMMMgvlJBiH10Hxf4MJgw
6WJ6x0FZiI38tjatkWGC45TKYdUZQvyjfHBQRZkJcc/cb70m3reLq12kyYTb
F77sXzJTiLUyy9b8T5sJC3WaRjuIu4fsdzsbMqFv+NHQ2VlC7BwZd0XUhAnj
5gMrnqsK8Zy3+oVvzZiQMT4daa8mxG0a1c1Z65lgpJtk+ZN4x+Mp6Y12TICw
HhWpOUK8sffAqYQjTNANXD4qPleILU9x760NYELjyESuH/GamR3t/NNMYP7z
nvGVeKWF9b+O0Uw4surC6QfzhHhZp4SH3EUm1Eha3FDUEOIlfmWXcDITGNfr
dx8i1staOMq9zQQ1LJ89S1OItU2/cVrvM0HqaM6SvcTUu+tboh4xYYZNp10e
sYaXffDKErJedkkq48RzJJRzB5+T+9s2HFzGFuJZaa86rtWQ+Np8nXyJlY1D
Zba+ZkLh0jN9OcTyDSYrxVuZ4Bv8jdVFLLN3bH9hBxO2Xb1ZpcARYubUvSSP
r0wY1rkz14SYcWlv1ezvTDCL/y3DIxYx1BivGyb5YPgnhhH/qWzlnhYwIcRv
0eMbxLRT7LZF00xQSVM/Uko8NrYupJvBgjThkpfNxMPRIg8SZVjwpvHow27i
Qa2iT5bKLHg+v+3fIeJvpUfkhGosaK133SUg7tmhtypHkwXtO2WUJom7BrsP
OGuzYFTzPW+CuCMsJVnBkAU3zCutx4nb5u6oeb6UBdW33jb/IG55JCvwXcmC
jBHJoU7ipk0v52ubsaDmkmtWHXF9z6kdbetYsKTy69gj4pqTy0LP27Bg8fHE
zmTiSpWh/FW2LDjqdXx3IHH5vdtdvxxZMKmXEGhHXLrWVSGDxwJD4XcjI+Kn
HWqrt3uS9+mLOilK/OhY8yEJHxZUVvu6N5H1vpe55pXnKRYwYrdPuRJnr5qk
1cOIaccHFHFmS4FO43kW0PZtfz6T/KYy5ocvucKCJ1FOPGviK6mdBT3XWFAs
djpoitRP4j+Xuy9nsUCzydLoDnHMHimYfMiC2BXSbqOk/s7/wd73i1ggcl/r
SzxxRGJA2u5yFiRT2pP6xKcrByZeNLAga5X21DZSv4FON3T9W1iwrXtj72d1
IfYfc9i14CMLLkbf8NhP7K1VXxj9jQUbDiCTQ6Q/DpSG9aweYoF7zYPo/tmk
P3eYzvg9zoJNZ+4HuBC7hOX62IpLw4q6O2xE+sumJ05fQ0MaHp47XVBH+rVe
v6fFSUsaRA8rbF5IbOW7/HSKnjTMdgpQi1UR4vVin5rUlkuD4tl/jM1J/69h
6/vP2CIN9WLayacUST48Tmtus5OGHjXzWxVknqC85po4J2k4Xy7TLU68anWA
urynNFRcVukLJPPH2OllOfOsNIjk2nFNpEl+bqodWBclDfYxGnfcWKQ/fxyc
EXFBGgzKz7uEkflmFKi8TzxFGvr/935XGZl/C67slpkukIbOpaqxDHEhntsi
tB3tlYa+xcVU+wSNr6pb/108KA3Hr38oeCGk8Wz369k+I9IQ7jHtf4em8awR
y8mf09KwPYaR6EnmsaJi4vVvqjIwHf3RsJTMc/FNRj86N8jAJk9nVk4/jc9e
DEmcu0UGYgSmTTvJ/Bf52GLqaCcD7Wh2vUgvjf94BsW18WRA7VK8+7puGvMj
a4zfBsnAneo9qrc7aPz9Be9MzX0ZeFtj++JBE40149sOXHgkA/6KDaPTjTTe
4WJju6NEBsZ8DR6ubyD7C71Cr6tGBg6f/vShsZbGCYZKLYKvMhBe3daZVUFj
kySsozNHFrySZESDC2jss8dY+SdbFqp8EpZF5JPzweKcPw91ZOHd/g1/o/LI
+9Vfbl5tLAtUSKFVSA7ZD0W8g+y2yEL8uoL2VWS/jT4w93V4hCw4NlrM74qn
8fPlCUVWMbJwcsGW4uux5H0YzEylRFnov572zSmGxq7powFpGbKwevsN5Zoo
cn5oeUUVlsqCTt6X257BNO40PeHfMyIL1+UtlrUfpLGRUus8891yAFGIccyM
xn0xfWcv7ZUDbmHDvrbV5PwgLejvPygH/eouIitWkf2fofYwOkAOoo/qtv9a
RtaPb2/ZGi8HYzsk/zE0oHFWR6e3Z6UctDzJ/jw2k8Zzs3txrK48zM4Z1C/o
E+AWLb5W90J5WBuHLNK/CvD/MiTP/7NMHipOv7kZ2SXAE1d1dnxYIw+H9t5e
Yt0uwG0xnt8oJ3koO/g4M+e/85jvT8XHF+ThamHyhscFAiyNxt06RuVhdbeD
keQpcn40W8B8PCEPaUWxYotOCHCfuWNurKgCtBRYnrP1E+CK9c8n1igogJ6W
Qv5FLwEO3BZz8Y6eAmy/Ina6w1mAf+yd/9LfTQH8FzfkXTcV4Ppo2wVKrxXA
8UlLLi3k43U/HQSUrSIM1V4Nn7GPj6+phL4N3qUI8isHP1q68fGYSU5eh6Mi
DAaNmvo78fH185Mel3mKwLb534LabXw8oZPaxvJRBAeDT3kI8fE9XmfR8HlF
YKlv2OCjyseKbbtPlpUrQmnA+s7eynHcVrFH1MFACQztV56wUxnHhVGVLuxx
JdhtZ6kdfHMU75Pw62psVAY/xdo3+p2/sfvRoELZqzMgcGYOrJMcxgs99Bs3
uanApc+rD7VQg/i1soGM34qZ4K81uYGX1I9Lcs+mGIjPglnHyuwr5n7FQaJ6
W+o7Z0HZ6YbN92Z3YOmOwPXej1TB6HHbC6sPzbj3Ficx/aQa5MyXsdu7vBwn
LpjNKLKdDZ+dnKUYWzNR3NV91W7sOXCpVkN210ANckh0bpTtnwNvfedOqCm0
InptljC9TB0+7yqWpzW60NfeNQEVkXPB1ay7U+9xD7phuli9wW0erEsNd1Hx
H0D3w/2UPAw14Pgvua2zbv5EkbbuVuLjGqATkvLFpGgYGXdk3Ils0ATZ6IE9
81NH0BXdlPsNVmxIzp1IHzMaQ2Ojllmh1myoeZJ93sF4DG0uG0ldsZkN27sn
KkpNxpDk9o3RWdvYMD+4S9V//RjyOyk8cMqeDTZSuktK3cbQttc7Fxh6sOFA
wD3tSxfHkKyfys3os8SNe7hHx8ZQcHnMFasiNkz0z9iecnccfe8sTxQWs0Fq
qWf0SN44spscjbtdyoYMuaYRi8JxZLDM4Zx4ORtkI5XMv+Bx1JajHVhSxQYv
/pr3Ay3jaEkSdtRvYUPklsS/ZtPjqM/rt4bMEBusw52mpGz4yFrdNuuVFgfU
vfMdi7/w0ZUeo3JHbQ44KGiq1vXyUc995sdBHQ6oFOlubhvgo5NQqqigzwF5
jatLvv3mo3t7uSe3L+YALM4o7BQVIOkHv7d1mHJg2fQnriZHgKrXXhD5ZccB
5petgQInAVKW368evIsDib7n0y+7CpDLe7Nlig4cQO+jjJbsESC+5/jBJc4c
SG68HulyUIC0Y53e+7tzQCaka1b0CQEK+6CX+/cwBzJrIxatvCRAZt7Vjkrn
OGB//0Xmp1oBmmgbsKw8z4H6xDxjmwYBemQuu+R4NAeKTnoFFTWR+83eyuyM
5YBr6Dcq9L0AyVa2P8q+zCHnveqm7h4Bapv9Sw4yOSDtMYN6Oy1APi9Vyr0x
B+5HGlz0XUgjvUXLczjPOWCyNiRl1xIafb1qf7mlggOav7wsVxjTyM7n2qGV
VRyotfgT8nMljVapL5gt2cCB6dpLIRxLGjGPmBxNa+cAwyp5yRNHGqXP5WnV
j3Pg7JudjMuhNFq5VN+IJ+DAaOef/KpwGrVsGFtO0xyY15QYNhpJrj8eYaX1
hwMNzSjJLJpGPs13j54UoyCDO9MzL5FGEDFabqBAgcf3rX7NmTRqTy19VaFI
weJThzdW3qLRsYLwll3KFFgpbUEF2TTK7lL9FjaTAqk4bmT4PRopmaxS6FSn
4M7mJxGTBTTqHgpzjllAwa+6+wzDChqdlLTx4OpREBDd+vDLCxrNmqd6pEif
3N/T6GTCSxpt3HgnrNeIAskex93famj0MLMhx9SYgi/a7q57X9Mo1H7WxE8z
Cs6qNKlkfqSRhs9n8TBzClb+47RzTieNnkZky82xIN+bs/OjP9FosGAlx3I9
BTe6Pe7s/UKjHfK711+zoaDw8LNb3/popPXi9mUbRwr0lGszl/ymUaMBndnh
RMHCo1v09ozQKODy+oIDLhSkhTR+jx+lUZ3nwOsINwpEOmn17nEaHVXUZ2EP
sh4FhittJ2g0NzBI1dqTAnsck7B/kkYvv9bN/3iAAvk7kVoBf2ik9uTQGoEX
BbPOZo39b5pG2Dk3aOExCt4tX2QWISZE+6unzz3zo2ARW4wXJC5Eyos3X7E6
TsGmy8YlhxhCtI8x/Mgj8L/nL5y1VlKIZHMW/0o/Q8HOnCsHXrKEyIF+5KoY
Q0E1tc1HWVGIGDyJw9cuUHA0YY9UHXFune0pgzgKAm++awlWEiLRdH7y+osU
PBzdp/xJWYiyLf59eyaZAnOe10yvmUK0LS/qi3wKBaXDSU5Ss4RoUu3DUGoq
BaFJdh/SiG0GT8gWpVMgXWfsi1WFaDyhxOJ3FgUOelztd7OF6NofmR3BtynY
9SFedescIVq/z4knd4cC5/JfprXEqSumTuveo+CTrr5urroQWd60jnlyn4Lv
Kt9+zpkrREOy11Is8iiYz7LpDyVe07X6qdtDCqoMWo9vnCdEgxtiq4YKKBh3
aJfPJr5c8LnlVCG5PtaqXVRDiAYizvxOfkpBkgOSv0ucMNz0V6eYguTwbH+a
eJUDR/5xCQX8L1YzzDWFKM6wQu9NGQVx2SoD9cTZ/zqyzpZTYBy+cocSW4iw
+Vj/4gqSb+dN67YSt9rEVH15QUFX0+qKaOJf9tpZ8S8piLCSevmCWGIvDjWr
pmA7I3Uzn3iuzy7e7xry+6lRNy2OEP0T9BsyXlGwWVLqjzWxVcR5za31FKx/
0jDPl5gXz50WaaRg2s+s+iJxYGppx4PXpD59neg84vjbtiWuzRRwc2bnVxNn
P/yVrPiW5LP32O924vJnkQHlLRSsfnygaID4fQ17p08rBcVBNHOM+NfbImN2
GwU3Xed2CYklP29TafpAgYzju9Xk/xua9/3HSPBHCmINuPPp/+IdD2te2EmB
I0/y4jDxJhGNB58/UaBveyaqh9hd5smF2C4KNupelGj5L95ZW7xQNwXxjWbS
mDiBM2A19JWC/SJxl7OI7xic1UvvpaDc4uzdyP/iXa7O2txPwbzf8yz3Eret
edQ//Y2CSLan52riIWvrqtzvJJ/PDqjM+C9e+75Ml0EKDp7SW/eVrK/GnuBQ
+V8U3O16IJpHbHxYjVc2REHIUqm1/sSbAvPB+zeZBzHL5VcQB8V9nWoYo0D5
wbaV+STfCSknO07xSX4zbFP3Ed+9NbPEkKYg5QcvQpW4rXRdQMwkBbdT3o0c
JPUzXN1lZzpFgXqEvZ8CsdTbE8Y/pymY+VbrTC6px2UDOSObxLjwzfG90WdS
v9Zja5v/iHOBf/zrGx/iPX878+5JcOH74zN/p0j9X5yp6CXL4sIK9ecj0sTD
Zsf66xS4YONZbT6kJkRMa7mqICUuJNCVRs7EmrtuZerP4EL/JrmbVaT/bLzb
3P43iws8g+860aQ/c66u6tg4jwucuLGsLzOEqCLrXfGEBhcCz/I+6RO3P/BO
vsvmgv49qYwjpP+Z1dftpLW4sHnk5MshMi/2jTKaa/VIPA09Fx7LCZHL3bWN
TgZckFgjfPVDVojs3MLqhgy5YDTUOn8eseVr8aqZi7kwK97732PSQqSdI1bi
tpwLmYOPWkbJvOrliWQJzblwfGkVc8VfGnXMhhvRFlxIZ2KzRWQetjQFp2uu
48KQcW0Kd4pGlav/Jlts5ELw9acF02S+Zs6ZvhC/hQvrTzw+HsGn0Z43kwG6
zlw4G1RyvGOQRk7nTPxLXbhgueRq66UfZN5DkO9mVy4w2g7aW32n0drcCS8/
dy5MWBbW3e0n8/+8kPfckwsDEen7TbrJfmwm2GTvzwWNimcFN1tpxMsfYZ+L
5YJTXZNhQimNalhBv0zjyfPZJ+PvFtPIkCdeOpJA1tfC1K/sKY1oZZWdTpe5
EPnHo6ztEY1ijxnHLEzjwqI+Z7f3ZH8sXR4gfHeXC/X7fVZNpdBoZtlUM1XF
heWqelK//GnSLxHp76vJ+i77rHf8GI26vOW9omu5cNXI5+PkERrd09Rk8uu5
cKh7rEdwiEZrQmB17VsSr5rbrWIejbzXht49/IULHud0Nx20JvG+YoaW/uHC
wTtDV05q0uiQ+Ze4WuKoYL/EvcSKpUXXWom1D0xcsCHedf9A8TBx8RnREDZx
f2z9b60pLqg3MuwrNWgkaRvnGkMcUN7VJkNs/ll1tcs0yVfJmOrVuTTq2zls
dZB4xrTL6Fni80019gHER31rGg4Sv3l+wi+BGE9eCTYl5mV+vFdFHJ226H2X
Oo3OeKarL/zLha9TK+10iLW6j+uuIvbuv8JRJK5x2LJ8A/GNGfwf9BwS/ybR
7e7EvctzT70iTjdyP59E/OnVzEtexGtum1zJJH7R47XLjrhPU+VWPrH0hpdz
ELGR0svndcQ3x46kKhK/OZf2uu2/+5lWOwpn08hfzL+zl9jznfqcbuI5QTY/
Roh1Sg+/f0VcNqot/EusNlpxsYD4/9mTokM=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2Xk81M8bAHA3OZfddZ+Ro0RUSmifUJKjlLN8EZUjIRGKFOUWuUsoR1Gp
KMmRyVGkHAmJ6JD72M2VI/rN5/cPr/frYz8z88zM88wsOWfvwydZmJiYzuIf
xO+sS84cGididzPlxv63whZR0/BJ1tRG1p32cPbfpNJzF/TvbU24rGwQbbBT
ZbT9+TmU9Tpehl02mmbM8rbL43E48tTzP/NH5ibtcNn3vRx5yejTilsKQ6aI
1nNApuxJdB7i7PupNCVTQVsRG0raaPMM3W3OOTsh847GecXmnjujDj1+Et3n
qdZLa1Yf2SXX2oFcaR9vTvoO0mpVCy555fQiryGVweePx2gXbhuooJffEbfc
VaVvOxm0+tMNOXfnB9F10vuNd51maQ/YKvLmEodRxQ6pMnOvWZrL/vwV18xh
9MvBm/b34iyN1aSM1lkwjHSKyZY26bO0svrl5PTKYTRqbB/C1zpLa+kYyHs3
OIwMwqfagnTmaHLyOzb0bxtBi/MC/oeF52l9ircetX8cQc59loj1wwLN9cUt
o9N/RhF35o8zZ78s0NjPLUqzMI2h0qNekt+GF2iK4eOPk7jGEGtvZFAl8x9a
rXAj812xMZTfU7n17I4/tA9/w5/76oyh4S7ZwoHcP7TQsecOkyFjyKN9MrEi
aJGWMXnW03htDJ19c9XZW2mZtiXK87ba1DiS/rWPY2HrMq3Yxfbkh9lx9J5l
3YNgWKYdiUa6J5fH0QaI/x1tt0yLuv5LOopzAn2pTL2cH4ufpyuOJslNoD1P
72V/oS/T4qYlzWosJ5BgZlOvwcsV2vFza94XyidQiQ/vEVHjVdr4jmqxZa9J
9OEWOajYepXmn7Tn1Xe/STTcIJ6jf2KV1jz3SqXuwiQSF1OZ8AxdpT1bo7r5
R0yiq7V7w2vLVml/T5XVZ2VNImuh0Gce69doAZ49BovNk2j52W/yq5U1WpnM
zbFhuSl09+Lp8S02TNAkSA/fXTuFtrxetxj5HxP8ftrx4vabKfSarZD9mwsT
lAhTfy+8m0Lf43/JxvswwfYvVldzOqaQ9J3/bMaimUDyiLpz7eAUutVwsOFu
NRPEVNX/MGafRkl827KF1jOD7mAcCt47jdYf7njorswMxm9oLE7G06gkzafi
tRoz+LbvT6SZTaN2meJOLx1mYLduT5u1nEb8moo87y2Z4ZD0UJT6iWkUYy0a
GB7JDHy3DvYtXplGYTl/LeYmmeHAARHq98ppdGjLy7ObZplBYfunJFrNNJKu
PXfDeYkZLl9TqMusnUaVP8fb29lZQDskVe9A0zSa2fDlYLE0C5hYbB8I7ZpG
zo/KzE4dYoHe3NPnD9Kn0Z4KL+OeZyywf9OemHhZOuI/sNFdoJIFasJFViPk
6ehr71DUvtcs4F0X6BiiSEeBf+2bnn9gAano1GUnVTp6SjMxujHEAuUbD7xm
3UlHsm+V9h4QYYVPvlK7KszpiOnTd6i+wArHffQ8fgfR0dWxmrsXrrBCl7mZ
7JtgOlrHlMWiHcUKUblF4amhdCS02a6hLJUVghZfH1O9RkcbIj8aPXnKChZM
L5M1E+nogE6dee4wK1ypvLUtr4COkvPy7KMOs8EWL3W0oZWORCuvvNpnxwYt
3ZGlye10dLvdUZrdiQ2+qRZkr3XQ0b1Vie9XzrBBnv8Nj/ef6eilTYrLxSg2
2MzRK7TnBx4vzzUPrxo2sHjWX5I9S0eKfqcCLTeyw4y05ysxHgbavOvbkZwt
7FDQ9qqHxMtA25hs1ce12CGFqaiOg4+B9OOMh0MN2EG1aIKdzs9ADvmqlg/t
2UFhINClRIiB0jpn1FkS2GGyaMFwTYyB2LeHjjyZZYd74gGTNUoMxLvyp255
iR2W2t/dvKHMQEK1Ptl7mTigquKsposKA8maOVv18XJAc8BBFdZNDLwp99Zz
KHKArZ3MPi01BvJL5cn5z5YDNvSEs3hsY6Bf8+nWPK84QMDOP58PGCh3z9Zz
/fUckBhca9GK7RjfmvCkmQMy42/3xu9hoF4F9ndHejigBhmGrzNgoI9HfHVu
z3KAwuBW89m9DFRTYiq7eSMn6O5xe3nDhIHSzzCPm6dzwlZ3PxqzNQNZVtzm
kMvmhGVr09M52ELsO+Vn8znB7Kxjiq4NA12/7WWfXsoJNq7Hfp6zZaCr7/ta
v7VgR9yM6T7KQD4qL575sHFB8e/k356ODHRgyCMk6SwXtJNDuIdcGWhfiPwj
w0AuuJ22PcTZDceb+rV34RIX/FeykfoNe9des53H4rggKd7nZZc7A20sUJ+V
v88FMycGh16eZiCek3NuZV+5QI1X476NNwNxrT5Kdx3kgsH9Eb2N2GypJ9+K
jXPBI/34PTt8GOhvQ7f8pT9cEHnU4DH5LANNKlQM7BNaBwGshhL1vgz04VeI
ZY/ROvjYpce96s9ATcFa4THm62BHs/Gg03kGaqDQS3St1kH/ly1r9djVhk4C
d53XgWsI62pkAAM9ytdvdg9ZByF2xlqcQQwUf4ITVkrXgdXuG0cGLzKQ+a/E
TdLS3HD5sPo60Su4vU2/Ou0VuGHfjfdXnbBNzu24lLmRG947cfgWYu9nGWgX
3cENER1zeVphOD6ym86TD3HDiNdMgGk4A223f/OaK4wblqXDzzpcY6DneaIe
RlHcMOY8ZpmNrTlxmhxxnRvevTV83o+tdkHoFGsmN8xGuY4djWAg5QxHnrVn
3NBRpUg7GMlAkp1LVrND3MBCKtsgG81AtyTM/mlMckP5QymKLbaYy51Cnxnc
n3/nohKwhWf2rUytcYNa/WH2VWwSKeXOqAgPRDrdd+qIYSBWU7WJfmMekPip
Ie8ax0Dj9c6Xm4p5oN+XPqebwEAyN3o8rj/nASHmYBMPbEsHcyvLKh7QkYhU
TseuWdTe+L2JB4q2rAbSsZM2C3b+GeSBGOfEyFuJDKSTjpSUxHlBI1R/pfcG
Xm8ntgtNyfKC77YCAeYkBrqn8fBvqRIvUK6MlSlikz6kfdy9nRf+Nf2o9MH+
xeR10foQL/RuXqv4hx3nIdl2LYIX6FO18twpDFS7I6nCJJ4XftqyFKpgL7Bx
5Qum8IK04WjTfmynnNnArLu8ENy9Z/Aa9rbO5vVl1bygfc8pbgW7Xy/o/K8Z
XtC7EQddqXj/8NCdHizxwr1fT75OY+/vOWHiw8QHZNVqGa40Bir1PST7l48P
6iMEs7SxI+4rNZNV+OCPyIaIDGw1wW4pA0c+6P+odXtfOgMNxw+HpZ7kA6Xc
3xl22Fncf0ZGTvMByGcc8sTmZRMtjQvkgy7V2zOJ2OMLdvu6b/DBN7qYwGfs
3HMeD5Uz+IBXqpUxgm3HuEC6mM0HVy+Y3VjEbhrL7JV5yAfljukksQwGKvja
7+XewAdppwuoNtj2dtOfqpr54Gnp8vJJbEr32k7+j3wwn9+b64cd1ibD+qyf
D47f5NO9ge1Udzz97wJuf+33nUZsycIhlKDCDxlHlG6q3GSgToUFhZ/q/LD6
bHP/NuzYuxwx27T44YHJ4DgNe/mWkuUXfX6QNxE7aYXdE+8+ut6eH1hi330P
wU7kvmDm74zNc/JSJLZRZExpoxs/aGjKjSViv7j8MNjTnx/sHxcr5WEnn5si
vbjOD7/RoOUb7AOMVX+uVH44B0dcW7BZzvD3Hc3kh5nZ3Qe6sH1OqRf8u88P
krs0w39hm9ud1Tau5Yc2Dq4WplsMxNF9JTuzkR8mjfq8OLFfHU5inW7hhyoX
n1982Kqmz1qSevkhLTTYVBybmzZ//OssHv+ZgxIa2IF7lLleLPODTda7Li3s
YYNjjxOYBUBUXMxJF7tuf+2yvoAAcLpoDe/D3mIyd0dSWADubmcZNMHONlMy
WpAUALJzTskh7AuH45OLNgpAQIHhWzvsUcvX2uEaAiC9uo/PAdvaZvab/U4B
cOcUUHbG1rS3UyXtE4CTv7p63bHvOMR1jJkKgHZuw7kz2PzHUWD9EQFoIx39
6YM9cXLDm/PHBSAl9Yh+APZRN9vTh9xwew152y5gN3nECm70FoCoLt+1YGyt
MzXlrOcFYFPe9juh2Pnev//rDxYAt3gn8TBsIV8FtvJwAfgR5HrmKvZlP5sH
iTEC8OXTq5sR2PZBrxYMMnB/xRQux2A3X2TclsoRgJwAUZ047J2X5A3+FAhA
gvKGj/HY9y5bj7U/EoDUrVX6CdiU8OiEB88EoGiDSWIidti16u1XKwXARXBv
5Q1sRiS9779aAfh7XbQ2CdshZn3YjiYB2F+9rSAZ+0OclbJgmwBU6nK5pmDv
SohqHe/C8dJm5kzFLrxR5dfwVQCWnOKvERZOmRbPHhSAtyNig4SvpsnVBowL
QEUkWTYNeybD0tXitwA4XR7WJeyUGcm3aVEABtPWtAm3ZlU+Y/snAPzCjSKE
pdsXVOksJDBqfdBNvM/KgsRkz0GCNColgHBch8qnpnUkyG70XCL6V3/E4N52
PhLk75V2ILzcaR+USyJB9Pkb/x+PhvV5UwEKCVrfqrUT43X7nCATLEKCZGWH
ASIeObZFM6PiJEghR7YT8er+UvfGSpoEm6+R7hPx5Dv2NaNOjgR2TMedr2Mb
fp0/rb6BBCXxAyxE/C/+J0C7rUyCM1XTUbHYpQPKQutUSeCStTAXjT3mqD/k
r04CzpajRlHYsj+Ovfypif/ePfQyMd/XB687VGuT4BdTRiGxPt6cKNRQ0SOB
ZrdFxmXsv0O1bGlAgtoPNj6XsD1G5x54G5FgMqG1NwjbaOron/VWJIB3S3ne
xP6ghH8KtSXB867KKU/sOZ2HT74eI0ECT4S8B7HeY1Zc05xJ4Mt70/IEES+l
2z3rfEhA/e9Tlw32I+f+CkYMCRz9mrN0sFli2NPMrpNAsjKubQe2bclm3wc3
SBC3L2JmKzY706WNJzJIsGPxKJ8qsZ6ypDM/F5CgskwoRwKb1OMYXPOaBIJS
3v6LOJ+c+hdpK9FAgrMDjwZmsasVn24LbCRBpH6vHh3b3Z9pSqOVBLmRct+G
sOuE7v5X0EcCp2Lhsg5sP7Ofu+MWSNDg83z8AZEf604wH1UVBNYN5YY22Iw9
veIh6oIwmyNifBibs/bgtjuagsBiVmhihq2FdrkO7xSEwFZeUwPslCpSi+9e
QeCQerpbHfvg8+qMWAdBGJPKInFivy2gbHmVKAhbri6ElON8PqAQY/w9WRBS
JlkzSrHn8/45s6YLAvnghrJibIXc8VTjLEGQ2aG8lEfUh+zXK11FgiBeXf4w
EXt3umfjdJ0gTNwV7vbALotqcJCdF4RLZufZ5bELD7wXjVwUBHOPKQdp7Fu8
HR1TK4Jw3J3rNVGfLid+21fFIgTzSck3SdimGctq1iQhyL/S8GgN17Of97f8
i90kBCJ1gm5fsbvcd1TMqAlB3QzFqIeod5t2n7PTFAKWe4rqndjFT0xGFLWF
IM20RvwDdmD5qbbafULQ9Dv7eDU2f+PtnD/HhaDse1BVNjZzdJ6dw0khcNbu
08zEnjvwgPzGTQjqwzWfp2N/aS2PTPIWgpIv451EPc7v7vDeHCIE30xCEsKx
dw1zgUuGEBzqP0T3wN5cKLD8LlMIlB2frHPDlvUQfr4lRwgKSG5qJ7HZp+WV
1wqEwGo9Pc0Ru31+N+nmMyHYfOXkL0vsU+z+31tbhSCI7Oe9B1tc5t3nlY9C
UGXPZEXDbt0p1abcJQQzFucM9LC1PN+8CusTgsnDf3ZpY3N8omZqjQpBhmJT
sgZ25aR7ksuEEHhw9SN1bC+OmujEaSHwC82d24zdrX0qcHxOCNbflwzciF1w
54VVNjMZZJXeDslj21Zym71nI8OxmqPW64nzSaeD4SInGZJyD7XJYvtxcm49
zE8Gia0avVLYhl42JA4JMqTeOHlYFHsx8iHnVmky/PO6zyaC/ejuvzVHOTLc
lflZQ8WmdN2fqlAiw5o+hwkZ+5fOYvOZbWR4dcXiNT92hpVp3a0d+PNF+U/5
sE2971Q07iKD1rJXIS/289z9hXJ7yKBaJ/uYG9ut+naOuSEZOqiDVeuwJbsZ
aReNyKBj3NHOhX113c1rXWZkuFk6KsCJvVN+KpjFggx7s0e0ObAndff4qVuS
QaarzoMd29JnzDn6KH6uU/GdFVvhszbouZLhxCU9CWbsHkb8Dg8PMiyIVQQx
Ycdx/1RLP0MG9xn7gX/4/DenFyP1+xwZQgurKtawC20GKNIBZNhdb7CFsP1Z
TV6TC2RIvpDwaBW7Ib93Of8yGd60rnvxFzuwRm3mYzgZGv1ZDQir9oSNrUWQ
4X6LddcKdgrPph7beDJUGN1eR3j/htC2a4lk4Nhv/XAZ++/uT29Lk8ngVrZk
QdjF92IZ7y0ykHZEFS9ha2kOlKlkkUEu9r4LYe4ZeLHvDh7/Mp804f6SvBcu
eWQwvJ/9dRH76VmO8sv3yMBpq5tDOFzDvTyriAxSfu9OErb+/b688hEZ/NmV
txD+63Pj5VwpGb71fmv7g922Ze6l4AsysDqs5BPOZVhXqFWQIbbTM4Tw+acV
FSbVZEg7R7EjbOwjWemGyBAu1LGDsOSW0MprdWQY33hNjDCD/qMy9w0Z7vTw
ri1g1z8xrEJNZKj8YjREOM37ftXX92SIvE5pI+yuzl291IrX79KhKsK6dM9q
4Q4yFKDeIsKkJ23VW7tw/JUSbhEe9NJ8daiHDFslTOIJv1BLfXWmjww+Gyau
EI6Z/vMqZoAMO/xMAgn/9/hozf0fZLj02ciH8BavVzUNv8gQUlvlTphVTRb9
GCFD/r6wE4S7p8LQ2jjuv9R5J8JFxUNIYpoMjjln/yMcfGb/652/8Xw2mh8j
vH6Kr9b3DxkGZCh2hN95fqp9tEoG+cfXbQn7TGbUDbNS4KbElf9b2NOhXpab
Ah+3F9oQHttUW6/HR4FXY1HWhKsn5BuOkiigPF1pSTjhYURDAJkCXVqUw4Sd
T481pAhToN7Ow5zw9k2mb0rEKKCekGRMmGvi8ZtWSQoklRw3IPz1geDbCRkK
5Os90iH8xMPvLZc8BawO79MkHLbx89sNihTofMqqRNh6XLtRX4UC16vLxQir
PLjd6KhKAdWL27kJ/3X/1xisToHklIOL88T6UXFuuqlJgV+HewYJ5441NL3Y
ToFLuXc/ED5fpPTu004KvOQJKSVs7B7zjqFDgatPdVIJS6pMveOjUcD63GM/
wozRg80b9SkAfQWHCNcXljYb7aVAmOCMMuE0N+r7E/spcPmH8+ocsX6UA99f
MaFA88vGFsK6o73vs80pIHyffpOwQKHehyoL/D6HouOEf7re+dBjSYFDmvUK
hMuUWFvmbSjgL8YzOIsdNXKyRegYBdgfmd8mrO66qdX0OAViHVfXZrAH3GW8
i09QoCLV/g7hOE8yid+NAhl+/bsI7/LmLPE6TYGvu/RafxPze3bFos2LArSC
nUcJZ/jRZ9R9cf+nYwcY2PsCBpMT/Sng2DZzlHBe8Psui2AKiJSM7KJjHw5F
50tDKRB/czxrGpsp7JkIORyvh9HxP1PE+o7MtOuMpoDJfGPCJDZvTMLytngK
bI+htkxgV8aFZ6YmUsB3uz4TYZGk0/3W6RSIG6UYjWG/TXG8VH6LAqYvlY6O
YvulH5ERzaaAgtrs8RHsj7d1jn/JpwA3R5T5EPblHHWWXYUUkJOt1PxF3Kdz
5fNuPaTA0UPnuQexY+/zDB0rpcC5Ftvk70Q8Hvy7Vl1GgdC6QYNv2KOPZhWl
KijAJF033I+9t7TPbQBRgFGny9KH/a/64aRTC27f2zWyE/sxyomvbafAmfbW
2g4iP9clq63vpMDTL6yT7dgVjRd9BnspsMUxhr8F263ZW9BwAM+f5TaO98R+
a3Epzf9BgdUf9pNN2Oc6TOZOjlLgmUJXWAOxf7toqW8n8PrWD9Ksw27/vFVL
iU4B3WbDNoS9uV8icHSeAo1W862V2CMjEyserFSwKhLpf0Ksx/Fvt99zUCFV
3XryEbbh1Cc9VW4qnOVcGCrCvjtTFTpFosIs61RaHvax1VhWH2kq3NfKG0ol
8jvT5fx2OSr4fO3VS8J+yeK3V2MDFTKt40OuY1O57CNnNlEheHSoJILYb0Kq
PP7aVBhh/Tboj737zJmxTF3cnmR65VkiXo2PG+toVPh82yboDPb1YI2rpH1U
iLJ4UnwC23RYa/XhYSp0eXSMWhD5BgL7OqyoYHFkbMGUqGeZFRVLtlRYnx00
boTNc0j3vJEjFRJjyi/rYTdX7KH/PE0Fr8jTTkrE/FLCW9Z5U4H6V+iGHPYD
r4aHW3ypELktLl8CO1reyO1SIBVEOjN8BYh6GG/6Q+waFTaERt6dT8X3ESeb
T4eyqXBXq/9vFfa2qoySgLt4fJ+VNJ5j51N7E7LzqdCz7aH+I+yrzfamkw+o
wOU5upKJrb/N+U1kORUaLFarg7BLr+flPa6kggnrx3Yf7PVjv650vaLCKMdk
jSs2c7brbvkGKmiyBCpbYb/mPFNe006F7RpHFNWwtzg/Th36RIWxxQ5mBew7
1fRzvJ+pwOmR/FwMO/Ss75aj/VQI0DLOZsPe3RdQND9GBYXl9ICeFAaqehyW
qcoqDEL6rGMB2BymVuLpHMIgWPJ9xh3bYkzpJjO3MAS8t3tzDHtEviWtmyQM
k0UcdbuxyTdFki5LC0NgYTgPC/bp8EdRndrCsDgs6RqSjOudbCgnTU8YTvg1
VZ7GZq6xiCgCYYjZ59tqh52+uBB+yQh/3iBy63bs+jN7QpWthAF5cw6NJjGQ
hG23f7CPMGzz23bKAPvUfOHc8DlhmDBf8N+MXZJ08ZxFgDDkJafoimAbtcie
VbwkDFFNPJNjN/D+0T/t2R4rDHO/zOpjsd+rMrko3BcG0u76D68T8X5r7vhx
/YEw/G4rZrmHfdy1wGmpWBi0DTqHYrD/3D3g0Pocf55qWXIEW14k1S6wThh0
mUJNfiTg+y7zxkMf+oXBtGxwdeI6Aw0b8vQo/hCGMBneIx+wD0VNOl75JYzv
66nmj7AVBJ54a00Iw/EOU63T2B8ktyXcWRSGCNvPL37F4/v+zt2tfmQR4DJY
mn4Th/P7RRnrNmER8B9+4XAHe6aGaUBFHD8XLvG4gN24t35qQFYEhjTrLDdj
+xzZz2esJgLtuQKO12PxfdHrsKmUsQhcKc18qRuD90vp1s4AUxEo2bMvi4Sd
Nk+x7zgoAtL8qeRf0Xj+gj+fjrQWAYkT7qXR2JQY+9jfLiLgVvGloC0Kx7/g
VPObSyLw6ClL895InA++Xtjv9VwE5n7MiHeH4/NgQBFfQjl+X+z6vmzs40I9
HU8qReDJ1ltKrtgv92//7/drEWiUWXReCMPvK6Of9WsRAXP/i4cFsGuvn8i8
MCwCkS4ccRsv4/O0SrJT5pgINHhXNE6EMpDom9oN1ZMi8NBw4tojbK8V6aer
MyKwYad5pCq2pNuXhsv/RMDidkqc4iXi+zXz6QhRUXjUqkNhCcb782vws/sS
opAfm6hadRHnp4CHgU3SonBB0fTVOWzFx1ys3BtEwXun697BCwz0SbxeJF5D
FEbcFAeqgnD9mNuxJ/mAKBxouHvncAADDd2TS8kJFgWN3PfvBX1xf6/+WGK9
LApvNBOkSs7i+XK+6+gWLgpUz4cvDmIzycht0ogRhZk6p6oYH3w/S5etq0sX
hTXZ9vk/Xni9RMowhkpF4Z6vyqnHp3G+c5UyVR0Thca8mf6rJ/D+2Ntfkjgp
CjcXZ4/xYDfLZ4nM00UBHdBju+HCQJ+/SQ6+WhAFr9rptpvOuH0byQsH2cRg
04Mi7btODKS8X6LQV0YMws6pXI2wx+d/ZTG2CisxoK6rUcs/guuVg+L9QVsx
+HihXloUWyFl6wF+ezFI+JyoHXsY35f+mSW6OIuB212Y9LJgoM7uMEl+bzHY
b0dWVz2I88G1yW0uUWIgq3rPN+QAAyX9QCf5qsRg1yv5Df7AQEdFWrh21oiB
gh9n1wcazndmvQ+da8VgWFguVR679OXc7/JGMcjve6zfqsdAHQkql5w7xeAS
tVJHVIeBBHcnp5VPiQGjrPNbyHYGSrx1qvG4rDjssP5cGa3CQAHnw84Fy4tD
Drm19I0yAzkczpZJVxSHi3I6RUzYqtzdAR9UxUFCSOz6OUV8/g3aq7xDWxzy
Zw1lzeQZiMVOIZr3sDjIDvIXtUoykL/IzwPl4eKQCAPH2AVwfGZXFz5GiMPq
zq4QGX5cP9vE8iajxeGY+5uwnXwMJBRpsSKXKA4WK7Marjy4vi28fhh3Wxw2
RunwlnPi80RXDq9zmTjEFf4bkmHC8Uj5r5V3RBxGo7XKZL7TkeQzbonT4+Jw
ICckq6+fjr59LHd9NyUOzZcNc1P66OiEgBBzxJw4qCpSFle76cgr5u3Wf8wS
IC7Om1LcQkdhl9Vv/paUAK1SyahLlXRU5Ml8ovuwBETJG1R036Ajz9jHT7dZ
S4DzlfEcjQQ6UntwbDXJTgKcvptZR8fRUelIWdpBJwkY2uCjrB5JR9XOHu+a
zkjAmfL9UpbBdNRu+0mtKkoCSguC5ZlP0dGiYcFSTo0ELElUh3dr0VFwVU54
Q60EZO2sgZWtdMSkeYtvrEEC3K64zUpq0BGnTIKc5nsJ0N5roGGziY6ElwKN
Gz5LgLrgSsc9GTraWmx6c5QhAQUnYtqecuLxUed2ashLwgfdmA6nrmk0Eztd
Z6UoCaKfZzfIdkwjf5Yx0wsqkqDoYL7pa+s0Cqb3O9WrS8ImvTAD4v/nse8a
o6x0JaFI5qX3WuU0KgzJ7AmykgRp05qRhpxpNDikH1gXKQlf2TTfVZ2aRvo5
rbkbYyXh+ID81CvnaXTH9mhL0nVJyOVYGqhymEYO78+ud0mVhNstGnIPradR
79M7H1jzJIHirtZhvW8adVxck91bIwl7X/8M+q4wjeoEK981zklCkDBbfNHA
FMrV05BoOS4Fnz4PfD9vOIXqzLnDV05IwZRhSW4xbQr9dBwcV3GTAq2TKzLf
d00h+bDUyggvKWBKXTPYqTGF8t8u2cFFKRiL2zX7XGoKFRysy3iWIgUiEU1L
/fOTqPD4EeFbjVIgETXFNZA7iYqv+Qu6bpaGZ18Y7kL0CTSp+1/YtS3S4Dny
5prB2ARSnTOczdsqDTxLf/94D06gB86Uru/a0mDL4tld+XkCFdKeZRzdJw1+
Gwt1RF9PoPwlhoy5ozQYxy08oSdMoFtnPNW235CG0sDzfcyqEyjSysWEdV4a
+PXgqbbVOMo9+NX+5KI09PpvI6eZjaNqYyuvxhVpWK3TPTK5dxzN6BndiGWR
gSNf7jtGaI0je8VNn8kkGdD/6uDgIzKONP/MOCtskoEfbOl3xHrG0EBG2IW9
x2XgI1e38mPLMbT9692iyBYZSBBdOaC/axSR1NwWn7TLwA7ZyOJsjVE0Gapm
1PNJBnQb+WTnlUdRvnzVL+VeGcjZNbcpUWQUUU53yjQPy8Clk39yLs2NoOVg
VhMOJlnoM/rHrlM8gr7waNXuF5OF9Mh1WevFR1CGSmZxi4kssGkbZu38MYRC
X8dnmFTIwq0CYVf5Hz+RmYRVQbOCHPg46Xf//jaA9ng1HhOMloMDn8oeNId/
RjmSzgof5uWg5p2OJvz+gBTq76eZH1sPd2yPneThfY4SN9dt7KhZD+pMqt+7
u5/TTs2yfXy3UR7mnyd4Vx/5SHMumZGNTpAHTmuy/r+oflpTM1d49V952FEi
czL/4xDN0+BH4jvsBLFU27COIRqpuiK7G3ti+JSZ06chmm2xRyUDe/SqjI5k
1xBtJOHDb4VVeXDKHFRM6RmicVglOsVj+2YV065+G6IZfBPZ7bAmD++0//qf
nBqiDdswTE5jV3KOpRhMD9Fi2pvsArG/920pk6MP0Tpqg/yTsPM9Pi71M4Zo
zvl9j95iW05bJlvPDdEuu+dIqP+TB1n6Mc79K0M0hZ8BKrrYMouzOop/h2hN
Rw/tMMY2sRk+y7aK+2/KfMQFW27yy4/Xa0O0HDWXmHRsW52Vj9oswzT9+zoZ
+YRrTwiKsg7ThmUo90qwA/cqH17AVhN8U/seu0vi1edS9mFaR3RWWw82h+11
yRscw7TzLOf7h7DVTlU4e3MO08Qvmk/MYB/Q2f3AjGuYVjOruPQP2+KD5Oym
dcO0/wG/f+Sb
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-1.570796076373418, 1.5707962469511496`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4697948504651337`*^9, 3.4697948554676*^9}, {
   3.4697950153353767`*^9, 3.469795093503131*^9}, {3.469795206425818*^9, 
   3.4697952215568647`*^9}, 3.4697953386845512`*^9, 3.46979540982016*^9, 
   3.469795461725795*^9, 3.46979607094801*^9, {3.469796122204246*^9, 
   3.4697961753134317`*^9}, {3.469796212247798*^9, 3.469796245104357*^9}, {
   3.469796401474835*^9, 3.469796449531921*^9}, {3.469796613460616*^9, 
   3.469796630380891*^9}, 3.46979667428671*^9, 3.469796729831931*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"hIn", "-", 
      RowBox[{"B", " ", "t"}]}], ")"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469795112053308*^9, 3.469795140831382*^9}, 
   3.4697951999064627`*^9, {3.469795272170178*^9, 3.469795272582017*^9}, {
   3.469795316690373*^9, 3.469795316952531*^9}, {3.4697961168455963`*^9, 
   3.46979611819587*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1GlTk1cAhmFiiEtATaiyQ1YXAkaoFVq3cxRqUTDjAhKhDRIsKCAoAxql
lRSxgBZlHFojFgNVUaxgsVgWA4fdyBIgQAQSfGWJIsgYjVFZlJ7O9MMz91x/
4GGJ43Z/P8fMzEyA919zT4nnehw4t4kPrMdmZwnQ0MX0D2IeAnGTnPTJKQLM
NlWfZjJPgL/+9lhuNBEgtyaTQWFmgDUrd4ifjRMgZmPi4feMy8CLntrf+pgA
XdMHsw2MQrB5+HXz5bsEmKcdWjHBqAB70tr+XBNKgPxm+dFxxiMgaU89HFn9
BBTfzdDG8PtBT7fFWG3YAIgEnZdfxg8D55q4JV6OOhCrdxkuLX4ByqIbKIsH
+gGVlbqC+NIAxL94GPpS+sB5Wgsvf78RTF1MSkegF4i1AYjc+g4ULHpiJxvU
gKONqeK4FVMgb7tHfFdGDyg5YrnHdttH8HNMmMRlWzfIT4oecw8yg8nk28fj
J9QgRT6z6+1LEjwgbedqbnUCs66nUHGSDHOq9LLfozrA8oQISQCPAuuIlZZ3
2CowYrq016JqLnSjwS0BV1vAdn3UjxePzocKXnrU0LASCEayXJ2dqXC0sYTp
6dkExurFUmWRBTS4/fo5+qce8OkaJ+/QhdDxVKEnn1QLqMAUpjMugj6er9xu
GBXgm4ng9+xAGszzmeiokJSB3roDpGA3OnQPKM7aZ3MP3E9vEDFNdGh417hY
yb0NIiiJT1UqK+iu02e+SL0KwuOT7lvmfAalux1LteGpYHWkq8o/bAmULkjq
qUs8jdqt3CwSv1oKpYMk55+EcvSgOOWKG9ka1rx6MLmurhAlkXg7Wwesoe21
vjaB8B6i6k76xpbaQNoOK7LpfhnSF7Cy5T/YQmHoY6l7mQJlr7Qzrwi0g7cE
Tgt3WtWirJyIh2FMe9jBWnpKnVOPgrO/U1k+t4cBCa5hF6yb0AefG5PyagdY
qqPtjlAq0bB+i6QuzRHCExuez/NvQX9s9HBoC3OCea5eZ+spKlR0JpEeucoZ
Wi9QjF737UBpgeF+ZJMztFREf01J70RrdfmFaW0MaJicUxg/pEYylytFbX5M
OLqrStS4rBsl12TK/CqYsPmLUIdlqT1oh0PgjWYuC4qCaHS2ToM2xz4MoWew
oHn2iNDcqRfJHcXcVhMLykLybholfYhbf/M3QQgbwo3JvsqqfpS1qo6nrmbD
HNFh9roZLYowmnc+4nHgU6o3uSJwAIlL3jAzLnDgus71nk6yJ0jZPP+0YoYD
pWzHI+dNBIrxHsx6hP2Wau5Zjk1TVFzVYB80jk8PYguLoioN2IKGB2lr3xHo
+YXW19yPHGgbESLXYc8NzNqfiV1cmKPifSCQN2GzSfSJA3vd7VY9nCLQsyCD
XzS2rx3JaMA+26HcJ8GuJL0ot58mkLr2ROJF7Dx1uU8stvi69k4TdmyC8Nul
MwSSHpI7rJ7lQLPyS+fCPxKIO3TcZQN2Ql7yrkxsZfBOr23Yo+mRNmXYNH/S
nnBs1T6va9RPBJLzw89ewpZNaypLsLfcXC+7jj1/pFqqxX7GWFJQgn2ytWAr
ZZZAfHpjbQv2/txjaiG2OiO3vRe7+4xIloJ9bM6xAT22b+xW0R1s+yTB+Bvs
yr18rga72rh8chb7/z9D/wLtA3Ws
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-0.49999997959183673`, 0.49999997959183673`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.469795141430767*^9, {3.4697952064742517`*^9, 3.4697952215933313`*^9}, 
   3.4697953387362556`*^9, 3.469795409849464*^9, 3.469795461771102*^9, 
   3.469796070980213*^9, {3.469796122252646*^9, 3.4697961753544807`*^9}, {
   3.469796212281502*^9, 3.469796245153921*^9}, {3.4697964015035057`*^9, 
   3.4697964495780277`*^9}, 3.469796630411598*^9, 3.4697966743268347`*^9, 
   3.4697967298642387`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model with linear change in out-lever", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793224224224*^9}, {3.46979579304276*^9, 3.469795796273385*^9}, {
   3.487692222343367*^9, 3.487692223045719*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.469793349824625*^9, 3.469793434749823*^9, 3.469793514246719*^9, 
   3.469793553222492*^9, 3.469794815476325*^9, 3.469794895859846*^9, 
   3.469794967676996*^9, 3.469794998812542*^9, {3.4697950372387943`*^9, 
   3.469795078912242*^9}, {3.469795206200234*^9, 3.4697952212795153`*^9}, 
   3.469795338471965*^9, 3.469795409552553*^9, 3.4697954614953947`*^9, {
   3.469795504380664*^9, 3.469795547116843*^9}, 3.4697959205843573`*^9, 
   3.46979607066083*^9, {3.469796121943253*^9, 3.469796175003022*^9}, {
   3.46979621201355*^9, 3.4697962448683367`*^9}, {3.4697964012182837`*^9, 
   3.469796449248075*^9}, 3.469796545393701*^9, 3.469796630048656*^9, 
   3.469796674011136*^9, 3.469796729507155*^9, {3.4876922986647797`*^9, 
   3.4876923235807047`*^9}, 3.487692395611313*^9, 3.4876931009178762`*^9, 
   3.4876933946705847`*^9, 3.4876934419236717`*^9, {3.487693582749264*^9, 
   3.487693621303183*^9}, 3.4876937196103983`*^9, {3.487694003340445*^9, 
   3.487694031338401*^9}, 3.487694070339512*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", "1"}], ",", 
     RowBox[{"k", "\[Rule]", "1"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".5"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}], ",", 
     RowBox[{"B", "\[Rule]", 
      RowBox[{"1", "*", ".1"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tSim", " ", "=", " ", "10"}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}, 
   3.469793317289383*^9, {3.469794873587481*^9, 3.4697948877388277`*^9}, {
   3.4697949372558203`*^9, 3.4697949463186607`*^9}, {3.469795029459815*^9, 
   3.46979502972163*^9}, {3.46979506811007*^9, 3.4697950682836447`*^9}, {
   3.4697951513781023`*^9, 3.469795152016755*^9}, {3.469795214877927*^9, 
   3.4697952151716547`*^9}, {3.469796040816152*^9, 3.4697960975709667`*^9}, {
   3.4697961289659433`*^9, 3.4697962417324753`*^9}, {3.469796394812394*^9, 
   3.4697964459414062`*^9}, {3.469796669019246*^9, 3.469796669673531*^9}, {
   3.487692316557778*^9, 3.4876923172282457`*^9}, {3.487692389000257*^9, 
   3.48769238919969*^9}, {3.487693595513989*^9, 3.487693615921681*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]N", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"k", " ", 
             SuperscriptBox["hIn", "2"], " ", 
             RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"hOut", "+", 
                RowBox[{"B", " ", "t"}]}], ")"}], "2"], "m", "  ", 
             RowBox[{
              RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
           "0"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
           "\[Theta]Initial"}]}], "}"}], "\[IndentingNewLine]", "/.", 
        "pVals"}], ",", "\[Theta]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469792394632051*^9, 
   3.469792431184136*^9}, 3.469792734935874*^9, {3.469792971685051*^9, 
   3.469793046089113*^9}, {3.469793130677544*^9, 3.469793135285651*^9}, 
   3.469793338946413*^9, 3.46979342479906*^9, 3.469793505212208*^9, 
   3.469793548118333*^9, {3.469794800118528*^9, 3.469794807726589*^9}, {
   3.469794917950418*^9, 3.469794941062234*^9}, 3.469794991848013*^9, 
   3.469795044349578*^9, {3.469795183154984*^9, 3.4697951841228313`*^9}, {
   3.469795268273343*^9, 3.4697952687515793`*^9}, {3.469795324490458*^9, 
   3.469795324802168*^9}, {3.46979540098304*^9, 3.469795401406431*^9}, {
   3.469795454755315*^9, 3.469795455065174*^9}, 3.469795499669457*^9, {
   3.469796100972374*^9, 3.469796102084485*^9}, 3.469796492402645*^9, {
   3.487692263091447*^9, 3.487692275291087*^9}, {3.487692386272687*^9, 
   3.487692386560404*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"k", " ", 
            SuperscriptBox["hIn", "2"], " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"hOut", "+", 
               RowBox[{"B", " ", "t"}]}], ")"}], "2"], "m", "  ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
          "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
          "\[Theta]Initial"}]}], "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.469796554107567*^9, {3.487693083751544*^9, 3.487693088629837*^9}, {
   3.487693389135745*^9, 3.4876933900618668`*^9}, {3.48769343127391*^9, 
   3.4876934314641857`*^9}, 3.48769371392918*^9, {3.4876940213458757`*^9, 
   3.487694021679605*^9}, {3.487694062836049*^9, 3.487694063018075*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"v", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"hOut", "+", 
      RowBox[{"B", " ", "t"}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.487693117287436*^9, 3.487693146521381*^9}, 
   3.487693352996778*^9, {3.4876934922842484`*^9, 3.4876935048831663`*^9}, 
   3.487693715766687*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], ",", 
     RowBox[{"\[Theta]N", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46979516371416*^9, 3.469795187297618*^9}, {
  3.469795486098325*^9, 3.46979553974032*^9}, {3.469796104493462*^9, 
  3.46979610655263*^9}, {3.469796520001586*^9, 3.469796539545178*^9}, {
  3.469796580705709*^9, 3.469796584356557*^9}, {3.4697967088608303`*^9, 
  3.469796714451877*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8VF8UAHBbzCR5o0WEmTcjhBSRiN7JWpRKtggZpE1K2aJISqQsUUhp
oYiStJEf175LJESlkK2yZ02/21/z+X7mvXvPO/fecw/J9TB35ePh4THn5eH5
93vrLFdQ1eXy5nFlA4tZkg6lTazt1qxDFFvjgss09t/ygvMslh/lIt0YN4a9
OObl04WtwVS9cUVfP/YtdIW5gBVGjYTxOnRgKw+5XP3rFkmFKsv8rsb+tPj2
/FxLDCU1mJf9Alv2AX3DzGwclTvmFZ2EfVTXy32SmUBFfv8ZF4id874zZVw/
icpoLip0wJ45sr1jxC2ZijeIFtXGvsPbETZpeJdarjB3gYFtUBe96nfLPSq/
5x6nh0WHvnjjovFDKdSDPXL9z7EjXP7sG5tNpdRey7cEYTfNHowdZqZTsY+V
1opge1fIrBvKfkSpT3sm1jHpIHntfc1P/UyK+7RoXTg2VxH4B92yqJcJ/F8n
ZejAN3v67XjAU8p2dvNcGvb7TkvpccNs6pucmKEVtm+mcO5oyzNqzdBSbqo0
HUxivguO3smhGlZFaRpjS/kWWYwcek6d3qut2yNFB6TvMzw0+4JaEfOqfRm2
UPs3+Z/MXGo2P8tnmyQdWtF/Xj/6cilh25nOWgk6PHoQXzKYnUfVXHwZuB3b
zNPMcUA/n8rIVd4PK+hwnZ53vdetkOJJqiicWUaH5z4mnidXIGptv3mvI3bS
gKbEWACihF5lbitaSodjDWJuo4ZFFGv+XJHvEjqIJVXyjbQUU0EFpVF5BB1m
F79MP65TQt0obrzLi9197v6u4TsllNPEqjEDUTq8dDt7e+hQKZVQ6LAXidDB
dr269q/ZMko1/bxx+EI63K1OPjHIrKIi9dcYH+Gnw3j8C8UvEVWUhJPEqBMf
HYzcaroap6soo9s79Cx46fCDf9Iyr6maentR7YPSXxps1DXTDgutpcblQnse
zNCgIWuOT37oLRUcX3e8bpgGYhTdQUSlgfK7GPz57BANNsnFaoe6NFCiR0x4
lH/R4Op4+tjpdw2UuUKLs98gDdSjm125Ge+o4/N2ZZ09NAisVjZRdWyiCsyd
Kr610SAt+5VcRlwTtapZt29nKw0a4/X4V9U2Udd/nap9/YEGsm42+Su03lP9
qs3fzjTRoJo/RIVnSTOVf/Mht7mWBst128Xeln+gXojtC88roMGTrLD2oyof
KUHJwx4uyTQYEBuIMHH6SDlUHI71uEUDeW+TzQqxHynvnFCOz00a3NERvts1
/ZGyv3H0vP8NGsRURRywLWun9IZ3Ou2NpIF3V+SI8b5PFJ9Y7+7DZ2mQLFxz
nmHYSQ2Y6Ux/30uDzbr++4IcOqmiY5sXnLOmQccxJY0hn06KV/vOdXFLGqxo
vPy99lEn9cl2frv2LhpEx2/fdon4St19GcuyMqLB+VX1i/+2f6UC88Pl+1Rp
4Ea9S/jh2UVFDzn2+AvSgOfe77z2y13USL1IxEt+GsQLSHVUp3RRgjqjEz95
aFBZdUAm/UMXFZ9VtnzPrBAoWMzdc9Xupro/nUz5PSQEfQflMz/z9lBe0eFZ
91uF4HDMmYKGqO/UF5m7ETcfCsGxntVdz5/0U2rO9ibrdYSg06GNVlTVT5k0
iFjYbBSCPa2XVOq6+ymXT+ca/NSFYGNNr1+P5AB13t1U7pmyEPBnpxLLQweo
Amak65SUEMQHkJt9HAcpi4w+9Y45QShaIpGgRfykFtgmqdHzBGEhGSL/ZeMw
dTgiSUVbURCuEjWKd/ePUXXLu+T2zgoAt92ikL/2N2UQfczPIoQfTpSFcD3k
ZyhH3kd6if28kH180Z4V2/5QV2xjbMq28sBd/yMD66x54PMS+4zdVXNUcPLc
7vEfvOCpx6cTKzJN8TR1Qv5pfsjcGdNWu2mCkjt1wNdCcQHMtF46fnNkmOqe
uGEl/J8g/PEPfrwkA393z+EzMSdowHYy7mTf6KTMuqOUZGQWwsWZgqYp43pq
oIQbVPlYGHb0bonYapNUqML4IK3vKAJpwTln6ZLvCxdSE04dY4uBvaD9F/fK
t0Ljn7aTbEsCGGGtD1XTBgtbi114bZUZcKNcIMd742jhi0ulDqwJBjg6u5XX
aP8uPLDAq7O+XgzqjscFCXnPFDp7+r9YlLgE/nR9NYveNl+41k2pfrvTUlj8
ePsqg3Ee9FZMWdhLaxkoTl9cl/aBD715EnxTmX85cLObyLUhAsifV3FX7afl
YEodcUO6gmhhx+mtx56Lw1BVX0xesxDqeUDGJgesgP3DLc1+2nQUqyAhkGsp
AfOKWg/O3VuIohIPVDixJCGtkV3+rFUY2cba1y/qlQQitNGFZ3gRmjJInU4u
WAlTD8ZNvvEtRl09er7FoVLAv+Pv2pt9i9E9XdWVdU7SEOj2H69RqSh6fMGL
4bZGBiK0ofGzNoF+6NgHX1gnAw+jgjaydAikPG4wdn+9DMibxb/br0ugR9yl
zZ1aMmCeYZ30hSJQGpUTb2skA8t/2cU2GRAoZXqYaeYoAy++1BJxZgRKdD+q
ohEtA2HN/LvOOhEo1NLZlH9CBkr/zjwZCCHQvZ0d+1ynZEBfW6lA9CKB8rdZ
HquYlYEbKxZ/Wh9KoFFd4+jLfEx4QSww8Qsj0D45pZYlBBPSxY5+nbpCILXJ
Ua6sEhN6UgaFa64T6HN88GlDJyaoQGvQm4cEmo6ZvfzQhQmprUnXitMItPTK
qVv0g0zYsXDqZWU6gbadO4DqjjGhRDFmbWMGgZ4fMhG0CmCCQqNmf1sWgcK1
xWIO3GCC4tOLF/JfEUij4256aB0T1B1LbteXE4hQOTiV1cCETYOBZmkVOH+B
KsatTUxYP5iicq4S54PzplvhIxMM3YyD1lXj+Y+8Z1Z/Z8KsXvWhC3UEmgng
NxXkYYEfX/k+2nsCtQlvKNoqwYKs4pNznp0EKldP6OuQZIHHef4qta84Pvs5
0RNSLPAKE6wYwY7KKnZIYLJAfXW4tXsXgbbu2TnXv4oFO0VDamy/E+h14kHN
y2ossP+qJyT6g0Dxq28+rjNlQdfKCtFPvwk0PmaUen4HC07qj05GTRJoZ8Fo
ktZOFigWj/3SnyKQ4B6TiFRz7NlM+sNpAnkFTB8+s5cFCj5OY05zBDJ/a62w
xo0Fkbl69x/xMtAir6X3I4JZ4G7zoTFUmIEOUihRL4QF3Sn+WdKLGKiEfjRm
6gIL3ysPk55hn75dcs4lDD8fVZvWJsJA/RWe+3WiWBA81hEmRTBQueQ76R+3
WND7qt7faykDBaIr8aa5LHjbzhd6SoqBBj6h2Ok8FkTF0pwHsK1mx6Ie5rNA
jkWzdZRmIOUNtmH8iAW59HUJRjIM1Johd/pNOQuyP5TaL2QxkNqNQjul9ywo
5aiKuHEY6NbzUeu2ZhYcSfyUXI9Na1xlEdrCgsNdXmYasgz0ZVHE9q6POL+1
D//+xY4IttG9+ZUF7UalOeFyDPTdfURGeIgFl+sTj3utZqDdl2VX5g6z4Mr6
vVX12Plp1uJuoyywc/u7WV6Rga51/SdaMsECxxj9c83YsDecx3+OBcM+Hs7y
ygyUaMD5NkAnIc8iIfOOCgMt4Fp9jhcmgTng2T6IfTww7KORCAlui7QVNqxl
IOO8ocZ7BAmzL5tWVmKPr80vsRXH74/R3b+uY6AdKy1Tq2VJKL1sWt6vxkDx
3SrITo6ENJW7lez1DNT9mNb+Q54EzacKQnbYAZBPiCqRkM5doFWFnenKCdij
SoJGXOCJJHUGmlL5c71bjYSARb+s3mIbTH3I9lInwYL668urwUDt4eG9NzRJ
aK/WO+mMvfDpiHmHLglLUz5vkdmA18uvxt2dIqF7ZFTEFPueXuqleSChPE5K
3Adbq9mmgGVAgtbT/s5a7IMzhatdTUiwc+a18NBkoOclCQa/TUlY5Gq18Do2
z5WTjqE7SPgsqjH/BjueKR+XvouE1Yuqby/YyEAVBld5flnheKp+lUZiiy0+
uDLQhoQzomsOPcV2aNmygbAloVngiGkD9u9DE0fU7HG+g8lqES0Gkovc1+Lt
TIJ4i+SzQGxPmw2jQq4kqPlPGSdiF5CESMIBEoiQHVLPsS2fl+i9OUTCTunE
oB7skDbFJ389SKjY7apFaTNQwz2BqqgTJOi9Sy3dgy119HMXeZIE2tKWq27Y
OfPREgbeJMyJbuuMwJ6vOKLe7ENCg0ea221sk2jDnQf8SNjQqaGShf2NMx1y
KYCEidAVfvXYKj8bkyXOkqCaGPGnA/v0y8y8R4Ek1HgeLRrALg+82LzpHAmn
IitKJ7HFtu0frg0mwf7UYyGBTTgfYtrCDiEkqGSuCRfFftS+RG7oAs53pfV2
SezfKT8hKJSEEMdNZrLYW45V2DHCSEgh+iLXYM+09huVhpNQJqqJNmA/11+k
5hNBQoF71mIK2/2JirTiVRKGlV39jbDlJHbTPkWSkGhzVHAHduf5k2OR0STU
C7RlmWMn/Ir7rHeNBE+zQh9rbPO9r6smYkmg7NY72GEvKv34PO06CS/2bnN2
wC5X+ZNsF08CeW5Z6H7swATm5cWJJMQwMqucsDcK6HkX3SShdQ+pxMUePebi
dOoWCWcTwjL+/Z/ZdnG7fDIJdTrTJv/edzVI1/x4h4SSOyH0f+PLZNWwr9wj
QVQVem2xWyV+iUAKNhe6rbBjQojp0VSc76cJPP/iNx1S6059SMLUvf0627EF
bC3f2qST0FOefsMQu6DUJ084g4TwnDCxzdi+axNTCzJJ8KYte6yBrZqYH3Xi
CQkf3Pe7KWMPCHzxl31Kgmts0BY2dooHr1tLNgk+GuGbxP+t30eOeXgOCf1i
MZbC2OKGRrq6L0hQmMyMnMfrHS55ecn91yToK3i4fMM2uPB43jKPhEvq8LcR
+8/Q235aPj5v5T55xdjHy5aiY4UkFFodi0nGVlynmUEWkeBrY531b392Je69
/r6YBOHvMz98sa2O3z6qXU5CjlB5tRk20Y6sf1aQsPmb+JGN2FWGXXp3qki4
3OyrTGLrrFSQEKwj4cBQvtgwPi+/L5gI5NaTYJRcrfkBO2v46NCRBpyf0zpn
32Czy7PL3jXhekPe8ziPTTuxyfPWR7xfeOu+07CL2+3td3Xg9UzZI9GHz7O/
UdBW/s8keKwacC/H/rWyTObQV7xfNG+dCcJ+X25Wo95Hwsbbp7UGcP24qnri
ZW8/CZPTn88WYxsnXbubOEgC/xhPbwJ23olWH54hXD83NDONsJOluLK1EyRs
k1y1IRbXK+31SircSRKUbDxzDmK/3zauOTWFz3vvmeM62DSfi6ayc3j8cfFH
X3F9PP7ukWcAHxty+XdLc7Dh4hhSFmVD+fbnS4Jx/f2YlF9dTLDBNI4bZ4J9
KufCexsxNpz8MGIthp3WKd4XsowNGflzycm4vjM26Yh+WsmG5a8rdLNVcX0Y
CrG/osAGkXgueorvhwBBMzeOIhsOt1TauGMvlxY/kavEBu6tjetXY5uYpIf0
qGBnBD65je+bZyl1GboabNCNzUVBaxjo/N7lMz+3sCH2uL0LqcRAsiUPr5vZ
seE/mdg1zasYqF55KqVjHxuCRp5N+mP7Xt+ac9iBDeJ3w0XY2DWH+t9edGLD
6nePpY7i+9STUKIXurFhn1xZ9SSbgQrtn/ivPcUG9auW3j+ZDGQ79Xw/cYUN
PK+GIswl8PnhLvC4fRXPz+QZ/baCgZ7UWJ5RjmJDyF2pVE9s3uTfCVuvsaHn
VtlEpDjOj+HGpqAENhzVGtArXsZAEzFvDEdS2eAcxLm1QIyBotYUKzYWsKEt
y6dFaCF+fqMdPRixYVzDrtCbjuPRH+9VLWZDkv/N1m4a3j975VKjy9gw/zUu
uUAIn++L4czdtTj+AuXggwsYSPCL+dKGNjZEL63NiuPB+y+q60/dOBu0EvfZ
W+H+K+ZmQMeZ32zIabh8N2MC99cPlr1ZM8WGVWYgyYPdmm/se2UWx1uYnP5g
jEAb+jNGt/NxYFSZpj8wTKDhLad6a0Q5sLJM1Md0kEAHxgTeVSlywE8wI8H7
C4EcHhnU71PmwOTJ5qLCzwSycgqpGVrDgeLZ1E00bKO3/OXLVDlgQYuUvdFB
ILkMvjdOmhwwRG11mW0E6uHypE7rcyD8gmz0qyYCuTTO+q6258Bw0+wJU9zv
crNHWWGRHCi5vdL1RCaBKun+v3SjOTBwbTAtAPfTa7j8+aMxHFh93Uou9BGB
psSWWu+7zoHEFo/6BNyPR57SuLL2FgdG5us/vEjB/b+m73TzIw6Yoh1fK5MI
tKzgzzt2OQeE6AUP7CLw+NW08/lzHPBm3DTTPkSgo/pfo6qwQ96ZR6hiE/m5
tz9gb239XKWAbfP4cN4w9uu8kwbi2L2RtSOyf/B8rVGa4wdxf2sZtf8KtnRa
/LIn2PpfxDc7zHMgZ+7LUxL7u/Ww6RFsNMnqX4Ed3lC51xd7ntpAEtiNRX5e
Mdhtrz9FzbvhfKS0Z5Zj5+9mHWvHDjqUvHLtXw683HGKFYct+81ntQ62tPqM
ZQR2pe0uzW3Y44ctLp/HJrbz7nHG/q/6wsQJ7GQV5/Ab2F42HRVm2HoPN8Wn
YAtUCswZYn9nLn2QjX0njHedLrYKo6yoBruZ3/eGEnZj2K23rdjv80eq2dje
fN6ferCfVVLzEtiS/maDo9j35bmqDOyCMbnpv9itbTYuNOz/AepHg4c=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VF8bAHC7mYg7UlIxc2dE2UoLUrpP2ZdUilARLWjnzRaRJSKElCVS
IlslRb9IHEsiQpZSFNlCyT620nv6636+n3vn3DPPOc9znks6nDM/zsfDw2PO
y8Pz75rs6yCkduza9gll3f3zJB0qm1mmB1jOVP/IiMMs9t+qkkAWy4sS1r4V
O4EtFvP8yaK2AKpuMuv7IHYyimAKskIpDS2Twx3YyiPHIv86XqdSM/ym3mJ/
Ebuz8PtjDOXSG5RXgC33gK4+N3+TShy2iU7CPq3tdmaamUApjz676Yf9rKUr
bVIniSqsZJbaYs+dMu0Yc0yhigR2i2lh3+XtCJ3Wu0fpSi4NYmDrvotezf2Y
SvWrGJJ9LDoMxBuUTTqnUeFn7/XnY4cf+3NoYj6d2ttxt+UydvO8U+woM4t6
OfBIeTG2+xvZ9SN52VTV1YW4d0w6rLjRUjus85DazbVQDcN2UAT+H4651C7B
O1+nZenAN3+xYdLnCWWw/9NsJnZLl4XMpF4exerK3WmJ7flQpHD841NK5UGF
XboMHYxj+oXG7z6jxjr0Nxtgr/Is2z/mnE/tZkxp9a2iA9LxGB2ZL6CK6lw/
LcUWbu9WGGYWUlWOIW5GK+jQhl65/RwopIJQy9c6aTpkP4iv+JFXRPn5Rl0y
xTZzNbMb0immntwVsIXldLhFL7r13bEUxyfu1dxSOuR7GLv+bzmi+iqYfXbY
SUMa0hM+iBIV8TAok6TD2UYJx3G9Mip/uWGp5xI6SCRV8419LKfEnYMjiwg6
zIs9zzq/rYKKfx2dwovd639/z+jdCmq/Yeeorjgdnjv63hlxrqRWh/IdQIvp
YLNxk9av+deUr+KQbtgiOtx7m+Lyg1lDHQq+oHuKnw6T8QWKneE11FyT7Yg9
Hx30HWt7mmZrKMm2KGo/Lx1+8k9bFDW/pUJrzzcr/aWBpraZVmhIHbUlpaT7
wRwNGnN/8ymMNFATdbNn3o3SQIKi2y5WbaS8jB62+47QYKt8rFbIsUbqk4Dr
H6VfNIiczJq4+L6REvkwf8TrBw02Rbced8h5TykZ+5Z39dHA762ysZpdMyVg
dqGy+xMNMvP+k8+52Uw9mtjdt7uNBk3xO/lX1zVT6rHBNS8+0EDO0ap4+ZYW
iu7b13mpmQZv+YNUeZa0Uv9J3rVrraPBMu12iYaqD5ReVFRwUQkNHueGtp9W
/UyZSSU7H0uhwZDEULix/Wfqa+SNyHPJNFBwN96+JvYzFc/IkvG4TYO720Tu
9cx+pmz+F3zJO44GMTXhJ2xet1MN+08dtL5OA/ee62MGh75QFZesTE/60iBF
pDaQoddFpYqPTvVb02C7tvehy7Zd1IimBJ//ARp0nFXaPOLRRbVaRN+QsqDB
8qZr/XXZXdQuCdJYaw8NouNNja4S3ygF2qSMpT4NAlfXi/1t/0b53pyXG1Cj
gSP1PuGnaw/Fl7Cpx1uIBjyp3KL2az3U2RM/Q5/z0yBeYFXH27QeKjv388Qw
Dw2qa07IZn3ooa5rl0numxeGNft/px7X6qX2hkelckeEYcBJ4eFX3j5qeEv1
o/ttwnAy5lJJY1Q/NU2bCLudIQxn+9b25D8epHQtxI02bhOGLttPtLKaQao/
F5lbaQrDvrarqu96B6lWcfUGr03CoFn73atvxRBFhPKvfqosDPx56cSykCFK
mrvv2MwqYYj3Ibd72P2g8s2bNnb8FoKyJdIJW4hhivk6Q41eJASLyCCFTs1R
6rEWv6qWohBEErWK945MUAN83mus5wXAoX1/KX8dl2oJLfTcH8QPLq+DHM4p
zFEKPm2QOMgLeedF9y03+kN9uXrI8rUhD9zzPjW0/gAPPFE2ebC35jcVkPJ7
7+RPXmhadko9dvEsxdPcBcUX+cErpLKpbusUJX/hhOd+RUHIHSZO3h4bpXqn
4ixFXgkBw3f63pKcQcq47+SlGBcaaB/R+cCO66LMeqOUZGUXwX/dJ3NnDOqp
oQqHy9WPROBJpmOKkVVSqSrjg4yO3WL4xgiOpK9oKV1ETdl3TIjB+Dib6xDR
XWowbDPNtiDg+sipx2qZP0rbyo/x2igzQCvSo8Bdc7y04GqlLWuKAQOC7Opa
LW7pCUG3rvp6CRBxIf2F3edKj7p6F4gmLgFjhzKzaKOF0nWOSvWm9pIg0vVF
TneSBzVIKIu4bVkKXLO0dZkf+NDLxwG3lfmXAXcvYq0LEkDevIp76r4sAzn2
4hNIWwgt6rhoeDZfCqJoO6KLWoVR3wMyNsVnOQzMyLR4adFR7BppgUILabjs
apXmn7oIRSWeeGPPWgEbvTiVT9tEkE3s4XrR7yvgvl+lA8+oKJrRTZ9NKVkJ
Lok8ht18Yqinb6dnecgqyBSUULk9IIZStdVWvrOXAbTJY0GvUhw9uuLGcFSR
Betv6Y1ftQj0c9vhgCvrZWFgT586axuBlCd1J+5vlAXE/t1wRJtA2Q6SrV1b
ZIG4XZjYSREok3oWb6MvC3FDhTHNugRKmx1lmtnJQlMhW/ymGYESz5xW3Rwt
C+YdJma+9gQKsThqwj8lC8ktuo+GggiUurvj0PEZWdjV71YsHkygYiOLs2/m
ZYGWbt2+MYRA49oG0df4mADu5oZeoQQ6JK/0cQnBhJHzrzpnIgi0YXrcQU6J
CRkcvUW1twj0NT7gop49E/bGbPd7mUGg2Zj5axnHmMAq4o8pzySQZMSFZLoT
E3662hVUZxHIyP8EeneWCWNX51SacgiU72wsZOnDhPoX975/yiVQmJZEzIk4
JsStHw8s/o9AmzvuZYW8YwL9uUpyfRWBCFWnmdxGJshJDZlmvsHx81M1aGtm
wp4fYir+1TgenJe9az4zwU0sz3f9W/z+Uy3Mt/1MMNq20enKOwLN+fCbCPGw
4PScykFaC4E+iaiXGUqzIN/4y5xrF4GqNiUMdKxggYHdmTcbvuH5Hf4t7rKK
Bapl51+PYUflltsmMFlwQG3K4kwPgQz37f49uJoFSjJjNTb9BHqR6KRxbQML
lkUVCIr/JFD82tuP3pmwgKVgLPaFS6DJCf30wF0soK65c6OmCbS7ZDxpy24W
XND3GtaZIZDQPuPwdHMWhE5tomXMEsjNZ/bkJWs83x2/xux/E8i84cAaFUcW
3NJru5fNy0CibpL3wwNYIDft8T5EhIGcKJS4M4gFi5HMYxlRBqqgn46ZucKC
1DXGt59iX7xT4X8slAXF4+cyPi1moME3rke2RbGgMM3/6iqCgapWvJf5mcyC
yd4LF90kGcgPRcSbFLKgoC7ryoVVDDT0BcXOFrFgUWyu/RC25fxEVEYxC7rX
51rZyTCQsrpNKD9iQaT+xzh9WQZqy5G/+LKKBbeTTh9axGKgDXGlB5VaWLBR
rF3EkcNAyfnjBz61ssB0MOROPTatafX+kI8seHGHtWuzHAN1ioab9nxmgbXX
voW/2OEBVtq3v7FgK7g+DZNnoP4zY7IiIyyYXbX7nNtaBtp7TW5l4SgLctzF
quuxizMPSDmOs2BnZoG2giID3eh5JV4xxQKPwXm/VmywDuPx/s0CQztlBwVl
BkrU5XQP0UlIjzuSc1eVgQQdLL/Gi5Dw8NrWzz+wz/uFftZfTEKEmICC+joG
MigaaUolSJjwubuiGntyXXGFjRQJc1s7Tn1bz0C7Vlqkv5UjQdZ9zevBDQwU
36uKDsqT0Gjo94a9kYF6H9HafyqQkMsVFjqI7QPFhLgSCRncfo0a7IfHOT77
1Egwiz1+PmkTA82o/rnVu4GEipWtFg3YujMf8tw2kXDE5rsH72YGag8L+x6n
QcLsiLLrUexFT8bMO7RJsH5QB7LqeL28as+coUjo7PwmaoKdujP96gKQ0HZS
dJkH9pZWqxKWLgnZeu2dddhOc6VrjxuTcEaHa35Og4HyKxJ0uSYktIqa0m9h
80T8zy5kFwlrvJX+vMSOZyrczNpDgtx4WbKgJgO90Y3k+WVJgqjHYMV1bAkx
p5V+ViTEHV/j9ATb9uMOdcKGhCgeR+NGbK7z1KkNh/H8SmVrFm9hIPnrhz66
HyUhxHNFnh+2q5X6uPBxPN/cGf1E7BKSWJxwggReY7OV+dgW+RU7XzqT0MOT
5NeHHfRJ8fHfcyRcdHDWpLQYqDFVoCbKhYTAU9kV+7BXnf7aQ/6PhFsaHRGO
2M8WoqV13UkA/d2d4dgLb05tavUg4de63BN3sI2j9Xaf8MLrp6itkovdzZkN
uupDgvEQy7MeW3W4KUXal4RtYTd/d2BffP6wKNuPBGLcDQ1hV/kFt271J+FZ
yvuKaWwJoyOjdQEkREq9EBLYiuMhoSViG0SCf69mqDh2dvsS+ZErJPTFHTVZ
gc1NG4bLISRcqTHYJYe94+ybg4xQEpKlpiJVsOfaBvUrw0g4Vqlbqo6dryO6
wSOchA/NrxZT2Gceq8ooRpKQYHjhoj62vPRe2pfrJMir+gjuwu4K/N/E9WgS
3scPPjbHTvh18+vOGyS8TG90P4Btbv2iZiqWhOaLeocPYotWfs7PvIWtf8jB
FrtK9U/KwXgStHasDT6C7ZfAvCaWSIJhNqq2x9YU2OledpuEP2/VFR2wx88e
s7+QjOMzlZL97/7DT8GmCikkjAUQxv9+f1w3S+PzXRLKPybR/o0vm1vLjkgl
YZ+ddb8Ndpv0r8WQRoJMpE2PJXZMEDE7nk6C7rf8v3uxTUY29KZnkBD+1Wer
KbaAjUWDVRYJVpJvbulhl1R6FInkkJApncnYju25LjG95CEJkpGbHm7GVkss
jnJ5TMJraf8TythDAp3eck9IcDuTCmzstHO8jh/zSDi985GW1L/1+8wxD3tG
grvN8/0i2FJ6+traBSQM+DVFLuD1Dltxbcn9FyTU6Mcd7cbWvfJowaKIhL0Z
zgtN2H9GGgZpxSQ43UgtLMc+/1oSnS0l4eTg7egUbMX1GjlkGQlci+DH//Zn
T6L1rZZyEoz2Kf30xLY8f+e0VhXOD/vZGjNsoh0dGH5DAnphelITu0avZ+fd
GhIqlXKVSOxtK9dIC73D9WkXlzGK84V7xVigsB7vz0BBjQ/YuaOnR041ktDR
73npJTa7Ku/1+2a8P+98OxuITXPZ6pr8mYSwBIl+GnZ5++HDezpwfpUmLh/A
+eytf9mQ/ysJ9WUbzlRh/1r5Wtb5GwnDDQM+l7FbqsxqNw2QMC9SpzmE60ek
mstz/KEPr1rUfMuxDZJu3Ev8QcIyDYv+BOwilzYPnhESLu9QZupjp6xykKub
IiHJz39zLK5XWhuVVB2m8XjjDU+dsFuMJjVmZki49Kzj3DZsmkewidzvf/ni
lfUN18fz77NdffjYUHb3+SoONgRPIGVxNkwtZS8JwPX3c1Lx23KCDeN738ca
Y194dqXFSoIN1QH2BySwM7ukBoKWssFO+2xKCq7vjK3bxL+sZEP0i23aeWq4
PowEHY5Yg59nfC19gs8HHyEzR44iG14s07M6g71MRsqlUIkNBXcLNqzFNjbO
CupTZUPThoVHd/B58zTtXY72Zjbcld6KLqswUKD1srnhHWwYm+o9SioxkFxF
xi2zg2w4yl6r0rqageqVZ9I6DrHBp99w2hvb85bhs5O2bKi4Ri5mY9c6DzYE
2+P35euvOo3PU1dCiV7qyAaXTQ5vp9kMVHr4sfe6C2xgd8+7DTMZyGYm/wgR
wYYcxsNwc2mcPw6C5+5EsiGd+2qsezkDPa61uKQcxQZ/bnuaKzZvCjfB8AYb
ssZCpq5L4fjoaTZfTmDD5oinO8uXMtBUzEu9sXQ2LDROJwlKMFCUSrliUwn+
vwVHPwovws9rHqQHIDbEvjcsdafj+ehMflcrZ8PPnLC2XhreP9by6dGv2fBM
82pKiTDO7+Aw5t46NmhZrA5wEmQgoU5zycZPbMjkNube5MH7L6rnz7tJHA9L
r8OWuP+Kue3TcYnLBq5A9r2cKdxfP1j6UmWGDZJzdit4sNuKDTwj5tkgalOe
9WCCQOqDOeOmfBw4krZeZ2iUQKM7LnyvFefAOUFdD5MfBDoxIfC+RpEDlknT
Ce6dBLLN1q0/pMwBPn9OeelXAlnaB9WOqHDgrP/UVhq2fgN/1VI1DtwL/CYX
10Eg+Ry+l/YaHKjU2FD/8BOB+hx40md1OFCgGhr9XzOBjjXNe649zIHZBU9X
E9zvOuSNs0Kvc+BdTuVxl4cEqqZ7/9KO5oAD92aWD+6nVRz4i8djOCBoyqcQ
kk2gGQnJA4duccBfVbYhAffj1y9sjliXzIG9QQEfC9Jw/6/hOduazYFGF5Hu
6iQCLS35855dxYEbDlEZB8Px+G9pgcW/OWCeeme3ljOBTut8i6rBPnnOMkIN
myguvPMBWz2w++0abKtHJ4tGsQv9PPSksL9frxuT+8OBpU2xmpNOuL+1iDoS
gR1NT172GFunU2q77QIHvqj25ZHY/QdGTU5hT6vLDy3HDmustvbEhvCtbAK7
qczLLQZ7I7MnesERxyOt/WEVttHP1efasS87p6xc95cDWXsukjex5bo91m7D
ltHlORCOXW2zR8MIm/eqTXggNmHKu+8odj9vONcFO0X1aFgc9vuK7moz7J0Z
W+PTsM+AyB897H6m5IM8bClxmpo2tirjdVkt9vH7vvFK2E2hyQ1t2K7OM7Vs
bHc+9y992IcD9P9KY6/wNvsxjn3wl9MGBnbJhPzsX+w7j+yO07D/D2JWhLE=

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-4.307991670521879, 3.141592653589777}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.469795164300488*^9, 3.469795169721143*^9}, {
   3.4697952063784113`*^9, 3.469795221486446*^9}, 3.4697953386384993`*^9, 
   3.469795409771649*^9, {3.469795461673874*^9, 3.469795547361058*^9}, 
   3.4697959207995663`*^9, 3.469796070896638*^9, {3.469796122145447*^9, 
   3.4697961752461443`*^9}, {3.469796212196525*^9, 3.469796245049602*^9}, {
   3.469796401429134*^9, 3.469796449471758*^9}, 3.469796545639184*^9, 
   3.4697965850508423`*^9, 3.4697966303243103`*^9, 3.469796674223893*^9, 
   3.469796729770768*^9, {3.487692299090848*^9, 3.487692323796608*^9}, 
   3.487692395842392*^9, 3.487693101113533*^9, 3.487693394937904*^9, 
   3.4876934421454353`*^9, {3.487693582981365*^9, 3.48769362158147*^9}, 
   3.487693720106021*^9, 3.487694070822671*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
     RowBox[{
      RowBox[{"\[Theta]N", "'"}], "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469794826644672*^9, 3.469794854932931*^9}, {
   3.469795024087844*^9, 3.469795092014573*^9}, 3.4697951960266848`*^9, {
   3.469796113066903*^9, 3.469796114355788*^9}, {3.469796599637516*^9, 
   3.469796612718047*^9}, {3.469796719259061*^9, 3.469796723148695*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4lG0bBvDJOjPP2EtZwoQUiYpI9c6FJC3yisqSZZCoUFIqkaUs2ckW
yZpCdl9a3EgLRSrJWspWIsvMQ0S++/1rjt9xzHPMzHVf93kOk+1p7sJDoVBk
l1Eo/71m+LMFNjnf+IdCcXhoG3ytVtg55m3tZ1dWXYb5z9mnbCTlG5nm3XqB
BRHdpa9KzqLSlMk4MjaY1U/71Rdc6Y9c2+f9dMQiWP2Ovls8z4agDRPO0Uuu
Maz+7h2pn++EoYYUC/UkswRWm5lx+JY90Ugpn7Z1/s9N1vc0a418vTh0aqfP
6Vn5VNZ3lbVU1ZIEVNHen8s1TGftafntuUcxCc2f3N875ZrJ0nyUI7csOQXt
aolTnvmUzSoQfqcJVzLQ9xTjeq5bLqvuxhLfi4lMFOm8aMv5k8diqJZcndbM
QpqaFb+nou6yKKSTZ6tbNmoV3yxL17rH2nN0hfnK8hx0/qWc5kTZfZZWV5Lo
z+5cJJ3Q/nrcsIildN7bT00iH7FVgfenawlr3ZfBbpHgAuRbRNRMfypnpSyl
97MdipFgzzeVcfkaVi/bYzQ8rAJlNWee+SnfxDqk2TESb/4MPSgJ7zm1sZuV
WHxR1inzA3JlvUsdOzvAosm7N+5n9yKPofUDlQ9+sE5Z7hs9uPUbojNDVL7o
TrL0grVTbVnDKFr0tWqWA4cVs6LGiFn+A7F7LBDvmxnWba+LtHGJcXTmeQjb
U2WeZSrjtcybbxKVeTEOrTJZZMWYv0se3T6Fsi6fHNU8QgEl5mrPUodppFlH
+x16jAJLZ5ZzM5ynUR1fAf8XJwroNdvOhp2YRv1RgwpRXhRQPFxy8YjXNJK7
c+zIj3AK1MSJeXcETKO0xoONWU+wDQ642t6eRvFCWrfF1ywDh4a2jvCuaRSU
ufAvd2wZnHe7mn9hDweZaT48o8ZZBhpzBT1V+zhIrt47jj23DAQc7KunTDno
0bfRtjZ+HnDwPHOMbclB08pdB4vleOD+wMqLKmwOYhdVHThuxgN6sf5y+pc5
SL/Gw6SzggcUrd3GKgo5iPKhH55c4gXVcIWwfH4uCvlRm3UpkBfESkf4I6hc
RKNk8GwL4wX/NvTeneAicXWrxqqbvBCfoGCjJMZFyqHvjEtKeUF/jcKmC7Jc
tHd7g2n2MC/kz1XvTt/MRQk5ObZh5nwgcWnx1bAtF616FPh0txUfsKUXhs7Z
c1F6m70cvwMfnE12saOwuSh/UaY/8DQfOH4RdxJx5aKHRxKdLofxwSsTyZdC
Z7iol7jm7lHLB1mr3C0iQ7ho7bnjvhaq/GBHKDgn3OMidb0vhzI1+cE/+UbO
3UIu0qIc1Rjdyg+cAJusmmIuMog0GQ4w5AebyvCujjIussvdYFFoyw/FVW1G
MzVclNQ+rcETww+rbgrYNjVxEb92wEgJhx+as9fPNIxwEePPbMP8HD/spn0u
ifmB51HvdduIIgB1c4ZbrH9ykcIBtmUPQwBY3KSU77+4aIeL0TOBtQLw/Vng
yCjJReduEpnHjgpAo9fK79d4STRIJh8mngqAdJgEddVqEmXrb/HueyYA2emn
HJEcieyjWmNKmgXgzLyJhrMCibqV+JsOdQrAe/ErqvmKJHp36Oz2dI4A7J3c
WUSokqi2bL+CuqogHJo+Z3JsK4n8Fkd2LGkKQsD2RaVeHRJtMwm2eqcjCJox
TX5Ht5Gosr8m3sdIEP4GKeaY7CDRfREV/loHQRibT+kUMiBR8ullo6bJgiCR
P2Qhd4BEFjXpAszbgiCsWK3hY0oicX5dRU6uIHjOlkQ3HSRRdLqHbXK5IPB9
Wd3jbk6ikNc9rV9aBPH+9D2OOUIir/XVFV58VPjG1RFyciTR3iH3K/FnqHDH
7ZLvFm8S7b6iWLTLlwqdLRt5dM6RyGBFb/eMPxV450q26vqQSM/ogK5NJBVs
XtKzt1wgkWqeBkfxLhUCDr+MEb5MIsKFe6Kqlwrl8l+0LINIRF0sSnYdoEIK
zOVtCSYR302XF1KjVNihVNUkEkKihcYORf9ZKqjJEGr110g0plTzebc4DdjP
eZ2o4SR6M3jFotOYBo2pMivXx5Dold/W4AhTGpxeKBv/ht24fKJshyUN+Ay7
/NNiSfRkl4NIFpsGTvld73niSVSUa9DsdoUGkuuzDj5MJFHBjj+/ZUJokOj8
lOpwk0S57RUqrRE0SDE4eZU/iUTpfMrXNqfQoI3Hv9gkmURRzoLwp5wGJx0S
GP9LJVHEAvIorqFBWNfBV/vTSHQ90TfDvo4GogG5u/ux/Rt/zD9roYERSyaK
kk4iD6U3VZHfafB22uXg2tskMh2MVZOTo8POhSlpwWz8+9QG222V6CBBFmWc
wd7nreN/S5UOetVVWt3Ye3g+t63SoYOu8tGsvBx8Hgpq5yXM6PBoxcWrynkk
qnP1lzc/TAfLXXplV7FZJe9exdrS4epY6lwX9o5/fGWE3ehQtPrz++v5JNK2
fV5HDaJDt6N8RdNdvH85q9yNw+gQcOhi0YoCEm3+eVLiejQdGAov6uyxN14S
P857iw5L4QPbf2EX1buIGGTRwXc0PGfzPRKp0WoeXr1Lh7eFrSo+2OtS7Im/
FXS47/kllIud/6W8cscjOuTkBDpvuk8iZRUBu8t1dDC55WF/CntNdVHp7zf4
81s+lvViy7bPWXKG6LB7Iqk9v5BEaTIHljaN0eFCwv6SdmwppzsFXtN08DIs
KKQUkUhyevef8b908GFTiEPYidvScjfwE3CA1e5xEVsicPzASYIAK95FMgNb
VDTxzveVBDjfXfD8ih19ZMRERY6AR1aFTpRiEgll6nFclAioT7bzW40dORyV
nqtKgK9b0CNdbPrGr0YDmgTwDQTJmWOH+WhNMHUIKFF6U+CGLfA0NMVhJwEv
rZutArBD+Hr0Mw0JiH/6Y1MCNu/+jT/7TAjQj0valIcdlBCYKGtGwAvlnVZV
2JSe9p02hwno7zC59wzbf826kVRbAsaJ9WvasBfcLsd2sgkY0zFu7Ma+VNa6
baUbAUe6RGMHsOd+MwcsPQlQuDR9bRTbF3wiE30IuFlyNH8Ceyb0lfaHywQc
lC6dmsY+91bmi1gQfv9xlxNcbI6kZ5hZGAECe4fo//msXcOmmGgCiLD0rins
ybwVPS2JBGwdn20fx/YYPxHCuEVA1L/OiyPY41pP1PdlEfA12fRQP/YpP5FP
4XcJaClW/NSBPfqMffVVMZ7XDbPw19jycZ3u0ZUEKAo80X2KbWFnamnxmAD+
Le7Pi7DD1RpZ0g0EgNGwRhp27e9tqv2vCJDzf+x77b/v+7xkef5bPE91nzse
2OsSlJdOdhDgXXr7riV2vLpY++wAARGTHof/O8+X89drn44SQC3ZsLSIz3/h
5UJB8BQBMbvCwnuxj7O/XxFZImAy2tgoAfuWht2Jj/wMuFvecOEkdtvCB/Nb
DAb8iqBH62NvT0YqKtIM2NikcWIE76eXs7b4uAIDfggqq/8PO39T4UK5CgN8
iyQ7Q7BF3yS9+0ebAQbH5b9JYRulMp7w7WDA00emBl/x/l86HpTfbMAAR879
iHzsQYrH5cNmDKhcJdOhii3VOuAie4QBPXeNu3/g+2V6y8rs2zEGdNq/f5WP
/VDbSNnjJAPeS2i5SmNHusu+vXadAfVZoQ+/4/terxNfsy+KAfRtfPLJ2DN8
1FyxRAZYPTY8Z4jtkMnxzchiQPSjf8Zv4rzQam9eU/WEAdLpUevW4DxxywKh
y88YEKwdsbwul0S3PapnoZkB64zLODbYVFr2mzefGPCZXREVhfOqb+fF84PT
DCjImWN1ZuG+IiYc7s8x4HDf43YX7D2dzvu8KEKgUynuOHWHROVnzRQWhIRA
RqCSzYN9/a5Ks8R6IdDuZ0kxcH5uFOtYbWgvBJYunm9rcR4PRw0H3XQRgqyk
TFIbO4M+OzJyUgi2uMraFaaQiMG3qjzSVwhmnzbNxuI8H52x2t0RJwQ2F25a
G+P8z+vt83BrFAKl8hWGjrg/bK1+fXjcLAQ56tsbn+B+Wd7xV1f4nRBwWSPR
kthBb+V5K/qEQMwpm+d5FJ5Xg2PywowQyJuaeQndwPlVMIRi1gvD3vjZpv24
z9qVZpS+aQiDlXqXVBTuuxtZAhFaW4XhguvVR69xH86nqVh0GQiDjsTkhCHu
y84ot+9rbIUhNV1QVyGARAne46LV0cJAPVCbHeaL84dFOvZyhGHDMU1RWXd8
v/XXUavnhSGrOOyDuBueh6HNg5hlIvBLvahY8ASJGvbUzxuIiEDS2byCny54
v8yjEu6pikBUYlJTOu7/ny7Kz887isCuKJVtuUdxH0VarhN7KwKhBKNvnxHu
+5iw1tGPInB6lp4qsAv3Z9zjc429ItDlYeeP8P+TkCRm/YVREQg8a/FSDUgk
1zazYYJHFKwnqtm/9EjU0dXw3FJOFFxV1+rLapLIeNx6do2lKMQ+ZxTKSeH9
WR78IeCoKJjVqTzIX0ki7vbCkl4bUdjv7rm4QZJEdyL+uCaxReH1YFWQlgSe
l0p6J81LFJRzz+toCOE+YvfVTEaIwtqHvo0fKPh+ddr71daJgnSUt37fMBd1
Njgvs94gBupxbWzRB1w0qd8tfUVDDGqEqAyzIi4SrD+odWezGIxRjhyNvs9F
W5Ge67CuGHSdXuoRuMtFiY9FW84aiYHx3o5bI5lcdLDyScoNOzGgW550OBHH
RS/ylms+jRUDBfE74u7eXFQV1minQIrBNjfdyutbuOg4v09/a6s4yG18YEFL
4SCns5erGGkSYPC/oT5/zjTScFVr3e+4HBpsRZSf6U+jt+IbCJ9tKyB9QKbd
y2sKPX4QdGsDryRc9X9fb5Y5iS4vUzV70ycJ+6kDDb/tJhC999Iej8qV0Gy1
VLDkNY6G8pmJmX6rgK41VF4T/xMlrpPiq7GUAtOkaUk5vx8oNu34S0cFaZzf
zBMDfiPIOvFYK2NEGrT1O081+Q+h37vy5jJrZWCl0Yx6/4EBNDBk4NsQKgs7
Zw8bD+/8irJ3bpJpcVwN3olorHOxDxVf8xFzVZcDB/mUQsvXXSjU0mkfLykH
mu/873wt/Yi0e7PuhbbIw5MXxFjGrncoZf2t4pZ9CsCqHUtotmlGAXVRKftq
FMDorOXvn7fq0QEZy7xmJSZIVoQoxZuVo5TBjXU2a5kg4FHwWEK8HA0WU3vG
VJig22jfnPqhDPnBE1ERNSboyYUcqThchopcFP0ObWLC2ul/PWWPlSJ66ZR5
704meLbfFIn7WIRe7oqm/DrMhL8tZIyGRB4SFz4hE3CUCW2q13WsknOR3Sf9
raLWTPh8/KN1pEwumnEjT24+xgS+8k/KIko5aG2M7afzTkyITlMyCtXOQiFd
qg+WPJmwMNTTEFGZhtqy+ZpizzCh0s0zTKw2FTn84JnW9mZCwe2A09aPU9AJ
7Yd/y88xgdLTlGr1LhlV/I2T2nWeCWalZjPSPUnom+JcSJgfExwCk0sGeRLQ
xvH3mVL+THhTamFFFYpHl6qLHt0PwM8XEc9ZK+PQi4DrH7cHMqG9lu9PBDMW
/aqyP2QVzITJ4ZhHY4VRyE5cj7ALYULntoyWmlOR6H6PxNqJa0zwjQHrl4ER
yON+rtLRUCb0xw5ribwKQ+cHdff/CWPC929/FC1fXkfVjZ/5uyPwvCOrZ6au
hKBKQ8bmC5FM2NO7Q2ooJAhFmYUq+0UxQdOBZUfZHYhuT+pdp8Yy4eqhsU+r
zf1Qf7A3JyYO22xCUiPJFy3mzqkExDMBzFpD15qeR/8HO+zcOg==
     "]], 
    LineBox[{{8.798486538260166, -0.0016761852866209598`}, {
     8.801224024202822, -0.0008420096908026975}, {8.804210372503903, 
     0.00006772354485376497}, {8.807196720804985, 0.0009771678292587599}, {
     8.811012610300807, 0.002138814338157463}, {8.814164866840835, 
     0.003098078348239691}, {8.82080119639879, 0.005116523281993399}, {
     8.823621636460924, 0.0059739269591192745`}, {8.827437525956745, 
     0.007133529388211685}, {8.8340738555147, 0.00914909193065494}, {
     8.847346514630608, 0.013175867457038554`}, {8.850664679409586, 
     0.014181651754024804`}, {8.85414875242751, 0.015237332418970753`}, {
     8.85730100896754, 0.016192124749822623`}, {8.860785081985465, 
     0.017247037036207516`}, {8.863937338525496, 0.018201133061007194`}, {
     8.867255503304472, 0.01920508650584865}, {8.870573668083448, 
     0.02020867203664467}, {8.874223649340323, 0.02131219048884224}, {
     8.877209997641405, 0.022214737041242244`}, {8.880528162420381, 
     0.02321721536002297}, {8.887164491978336, 0.025221060750224414`}, {
     8.900437151094245, 0.029224290471851128`}, {8.926982469326063, 
     0.03721277793058754}, {8.980073105789698, 0.053116855739066465`}, {
     9.178333957651894, 0.1116153104215997}, {9.372697197154395, 
     0.16751641536055967`}, {9.583570987562506, 0.2264358944570755}, {
     9.78034308397827, 0.27969994657875924`}, {9.993625731299645, 
     0.3354728346295921}, {9.993725326059312, 0.33549838903136786`}, {
     9.99382492081898, 0.335523942970436}, {9.994024110338316, 
     0.33557504946042077`}, {9.994422489376985, 0.33567725688755606`}, {
     9.995219247454326, 0.3358816495287301}, {9.996812763609006, 
     0.3362903459445422}, {9.996912358368672, 0.33631588553577585`}, {
     9.99701195312834, 0.33634142466404987`}, {9.997211142647675, 
     0.3363925015316883}, {9.997609521686346, 0.3364946497111049}, {
     9.998406279763685, 0.33669892384472344`}, {9.998505874523353, 
     0.3367244560276589}, {9.99860546928302, 0.3367499877475091}, {
     9.998804658802356, 0.33680104979791997`}, {9.999203037841026, 
     0.3369031683413686}, {9.999302632600692, 0.33692869681939813`}, {
     9.99940222736036, 0.33695422483427906`}, {9.999601416879695, 
     0.33700527947456516`}, {9.999701011639363, 0.337030806099954}, {
     9.999800606399031, 0.3370563322621631}, {9.999900201158699, 
     0.33708185796118273`}, {9.999999795918367, 0.3371073831970087}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8VO8XB/CxDGbujLWFFGNLKLRK0RxpkyXfkETWhJKkFBEp+x6KLE0K
bSSKHyWPtZBElggpspaSmUui+j39Na/36/5xn3uec85nFJxP7nflp1AoTD4K
5d9vVpCz0NojMdsoH6QCFwTDK+vaWSbWLA/2011RHLUyF/T3ReVlFsufHac7
3+5ZdhplVcXJU1lR7CT43yqtksvIU9/3xKz8dXb6VwafZWEyap93T5mSv8du
ceObPX3rNhLuHVSdlC9nb9Bzl4+KfIyymzinvsg3sldkBlCT99eih4VRvZ6a
79neEZNXXDjtyI3ddv2rzxC78KSvvYlzH/IaVht68nCcrRHdOLJv0yCiK4Sq
DmyeYg+Stdfs2CMoXvyVerYjl83pfLlXoXgcOfdaIoHmGbbJXwvWpNQkOlUf
6nxS9Rd7/58PIqcFp1CRN8NC2ug3ezCoO2Ni6w+UHXB8QtuaAvpfuT6PHKeR
dhXtZ8RhChxklM9mHZlGVYJ3qQMuFEg92Pwr0n0afYz7zIrzpsAnlYeB1t7T
SO7mYevxKAqo/afs2xU8jdLr9tVlV1CgOk3I3e7GNEpibrghqcgH8P5wT1TP
NLrEWfiP95UPArtj7p7bw0Xm2mWnNLh8MMUM6S8x5iK56tNXnOf4IHhAsOyH
GRc9HZxobaXyQ39Bqb2zFRdNq/TsK5DjB93OOn9VZy5yzi8xPWrODzXnT8ob
BHCRQbmXUfdjfvjvojn38QMuorR/hIrzAmDfQL+SR+Wh0PHK7PMhArBih5to
tAgP0ShZ/LqRAnDvW8v7YwQPSa6xqSu5KgBpFHBWluAhlYi23YWPBODZhS2b
zi3nob1ba8xujQiAtRpzT+Y6Hkq+fdsucr8gjImueTlix0PST0Oe77IRhG3z
vUNnHHgos9VBjuooCPYxXFuKMw/l/Zb9GHJCEGJd5hzE3HiozDrFJSBSEOJR
cQ3zFA/1EWHHvCoFYUvygmlsKA+tPHPUz1KdCnHjiYeT7/HQmi0DFhxtKsx5
qmTdecBDGygHtSY2UWGllmJGeQEPbY81Ggk2pIJU25P2riIess9ZbfnAjgq2
mmMwU85D1zqmtfgTqBDL1LdpbOQh6sbg0UIuFX7MdJI1ozzEmJ+t+TVHBVlt
v8KEcVyPau8bOylCUCFSs+7QFx5imTpb9TKEgDFbkzr2jYf0XHfWCq0UAprb
s+EJkofOXCU4hw8KgaP4wFCYAIk+k6kHiOdCMJ9wgiK9gkS3DNaf7q8Vgqty
JTZIjkQOcS0JhU1C4KMToXqERaL3ytRGi24h0E0sVcxTIlGbhc/WTK4QzESX
5xDqJKosMmGtURcGtslZw8ObSBT4e1Tvr7Yw7NLfLt+nQyJdo8s2bTrC8Geb
1bmDuiR68rE8yXenMIh/M7xhpEei+2Kq1EpHYRgFbgdzO4lST/BNmKUKw6Ba
oIWcKYksyzOFFG4Iw1mNy5q+ZiSSpG5W4uYIg2tUQVzjPhLFZ3rZpRYLg069
2/tj+0kU+qq3ZeC1MPAN2zxLsCaRt1rpY29BEZBKGSNcnEi0d/jYhaRTIjB1
oPXM+tMk2nVBKX+HnwiY7/f6s+kMibYv7ns/EyQClxp71232JdGWnaabbWNF
YODq0hvrz5FIPVeLq3RHBFyelcWIBpCIcOW5l/SJAO2E/FqrSyQS+Z2f6jYk
AovjzW6tv0wiwauuL2QmRMA1WuGFWCiJFuq6lIJmRaDd7YFqdRiJviqXf9gl
SYOIlXKOIlEkav58wbJ7Nw2E6/YsVksgUUPgpsvRZjS4aED5Oohdt+h7kZ4V
Deozdl9ITyRRxQ5HsWxnGrAVQ9v4k0iUn7O9yeMCDXQMC8zKUkh0V2/+p2wo
DcZe9wo7XiVRTsdj1ZZoGkxLXg+mXiNRpqBK2Lo0GgzOV+UbpZIo7ogwzBfT
wMjqHfG/6ySKXkBeBeU0MHkd99IknUThKX5ZDlU0uF/zfudH7KC68V+1r2kg
rbQtlpJJIi/l5pLYMRqciT5otvIGicw+J2rIydFBKSVURvgW/j6Nzx12ynQQ
T9+UeQrb+LROUIY6HWyW6ax/j72H/0OrtA4djux8xcm9je+DpXFWypwOyKIn
SCWXRFVuQfL7D9BBuj+18CI2u7CtIdGODkufkLM92Hrb/GRFPehg+XhzW3ge
iTba1VeJXKJDOrpY1HgH999t6WO7I+mwWOHD/cV3SbTuy3Gp8Hg6WP3WRA7Y
mucljwpk0OHw1gNbvmHnV7uKbc+mww4j/lvr7pFIg1ZedvEOHbTUTVf6Yq9K
cyD+PKZDlfnxcB523kDxE72n2AWLXNbeJ5GKqpB9QBUd/Bk0e09sxdL8Rz+b
6bDlSvCjPuzlHXNW3GE6pJEO7XkPSJQua/p37Vc6aMCKhx3YMi4373pP04F9
4uJ9Sj6Jlkzvmp/8Q4c//SM0C+wU3fSc1VQCSs5Xn/DHlgqZND1OEMCXP8XL
whYXT7k5tpSAYYkFr0/Y8dajRqpyBNTQHzlTCkjE5GzhuioTgFjuASuwY0fi
MnPUCbhsnVi+GZuu+WnnkDYBy6pSVuzHjvTd8F1Bh4AZv093PLCFnkekOeoT
wC0YPBiMHSrYa8AxJMAiTXBtMraAieaXfiMCqoMea+diX0oOSVluToBxie3B
EmxKb4e+7QECPLM87tZiBymuGr1uRwB/npFCK/aCR0BitzMBVsbute+xzxe1
6C71IEBi6bqEIey5nwpDVicJMLspFTaB7Qe+sSm+BETG+Od+x56JaNjYHkDA
7ejWqWnsM29kByQuEfDBLsyNh81dcjLSPJKAgAAB+j/72NesTYgnICaztPsH
9lTu4t7XKQTwWomOSWyvSfdQRgYBrLXeC6PYkxsq1hhnEyDcb77/I7ZnoNi7
qDsEqC8s6+rCnqh1vthQQMC151sjX2HLX+k+Fv+EgPXU6zrPsS3tzawsnxGw
l7W5Lh87SqOOvawG1z8gRzMdu/KnrvrHBvz+OI9zYf/OW1+4KO8NAYo9khwv
7FXJKn+PdxEgMK6RZ4WdtEaiY3aIgL6nvZb/7vPlr/DK5xMEfG2I+v0b3//C
y4W7l38Q8H59V0Qf9lHnsQtifwkw0fA3TMbO0LJ376QywMF61Pc4dutC+/4M
BgN85JViDbC3piJV1WUMCNu4/ugo7k/vIxslJ1kMiD8rr/E/7Ly1DxaKVRnw
UJfWFYot3nytbdtGBohyqB9lsHdeZ1QI6jHgbYQ2fML9f/7opbym7QwoDY6K
zMP+TPEKOGDOgKLMmXZ1bJmWIdfl1gyot1XqHsfzZZZhYz54mAE/Dxe+yMMu
27hTxes4Ay68XeK6DDv22PI3YeEMeGkRUjqG571aJ6ncOI4BIU+pK1KxZwRF
ciRSGLC22tTHENuRw/XLymbAytu2X67ifbGho0mxpIIBvsWdKxXxPvHIBmZA
LQNmG/olq3JIdMOrdBaaGCDjJz5tiy1Cu9Xc/I4B7wbVYuPwvurX9z/7eZoB
jwSztnVn47wivjven2NAbpFHuyv2nu4jxt4UJpTGNDn8uEmiYh9z1gKTCfet
g5z4scPvqDZJqTHhcbSqNAPvT02JrhWGDkyoP+PZUon38UjcyKWrrkyQH0vn
bcTOos+Ojh5nQjdr0eEHaSRiCEoXx/oxwTitZCYR7/OJGZtdXVeYALvsbHbj
/Z/b1+/lUccEiuBFAyecH3Y239qfNTFhR3R6TQXOl0VdfzaLtjHhv8V6cUuw
L72RF3jczwTt0iFKfRyuV41T6sIMEzJ1fLyYMXh/3R1GCWqiEEj8fWmC86xD
eUZ5UEsUHn34uDQO511MtlD0hk2ioCIeVfYK5+GvdFXLnu2iUNG6MGmI87I7
zmNM0U4U2vYqb2IFkyj59KR4abwopDtJZEf64f3DJp36uKIQOf5TdPkxPN8G
q0RKf4mCndOBt5IeuB6Gtg8T+MTA0z8oX9idRDV7qn9tFxODSM3gO19ccX/t
j0u+py4GZ5f5NWTi/P/iqlJ/1kkMYtCYTs5BnEexVqsk3oiB4SnpXuOdOO8T
IlsmOsXgxTuxVKEdOD+vPDtT1ycGF27ZBSL8/yT0mkL1uQkxMJ/aXa8BJJJr
nVn9nV8cZD5xHL9tIVFXT029lZw4UOSV2Mu1SbR78tCsopU4VAvF35OTwf2z
6HJ78EH83LQoP28piXhbHxT22YpDDZeysHoJiW5Gz7tdcxaHo8YHQjZI4Xqp
ZnbTvMXh7kqtTVpMnEfO/eVT0eJgcX5HbTsFz1e3Q2BllTjMV47q94/wUHfN
Eb5DqyVAa8DcVvwhD00ZvF92QUsCPOeSBc3zeUi4et+Gm+skoHJuyjz+Pg9t
QlvcRjZLwKvUig6hOzyU8kz8tc9OCWh34aWMcnho35OKtBh7CRhWun3I/QoP
vchdpP08UQLODuaKHTvNQyWRdfYsUgJGqq8Wha/noaNU348tLZJQvLv5P1oa
F7n4BJQw0qWAV17ZFcSdRlpuGi0mTosggiKkXGswjd5IriZ8dReD7Lv5Vm/v
H+jZw0sZqwWWwHPZJc/NOVMogE/dvLl/CRyIv1Xz0/47oved3+P1ZCkM7xrJ
+es9iYbzFFI4gdLQyAktKE/6glJWyQiWW8lAvG+qtFzgOEpMP/rSibUMBpN8
XIcCR9GhlMMtjNFlkGF516kxaBj93JE7x6mUhYI/G1Z9NB1CQ8Pb/WoilsNt
vRMwov8J3dJfK/vaaQVISM7wun/3o4IwXwm3NXKgeczyutWrHhRh5WIsQMoB
ZZz26NOjTrSxL/texGt5OM59NJa1ow2lqWUUvDZmASNkZU2TbRMKropLMy5n
wVaKxa8vGdXIVNYqt0lZAVw38ocnmRcjA6+XthJRChCeIpNpmx+OOMudlZtJ
BfCWUlylsO4BW7n2zjUzW0Uo7JQcaEuqYCeuqVF/W6kIvqNJZmtO1bOPcgXb
GtWVYE5mfXnPfDPbuWiaFZWgBP4tZSHpI23shiaRyxULShC2wWPS2a+T7Wn4
KbERO3av/vIWbPGK8htd2Pzrkvbq+neyDxYcezr1z6crc8XOd7JHE5p/KP9W
gp4C1oGKgE62kFWiYxz2gRiCszi4k204sHSb/R8l8BI51/YyrJM9Yj1lfBzb
c8uRqXXhnezo1gYbP2yd1W9Fb2C/rfb3TcL+aqK990xEJ9s5pzf/BfaR0+RT
VlQn+6IHR1brrxIs7bkV6h/byVYePKemh+1en5HxGbvhkLmOEfZD98XF++Lw
+U34LFywv7RF96vEd7I5mi7Rqdhl8kGabxM62dvvbE3LwTZ5Emign4jPJ78o
rwjbf37e4i62pkR99StsM07guaAr+HxRWW+6sQd+XYgcxz7Lf7Z/GLtZiHLd
MqmTvSzA7Ms0dmQN/z2EXcldOff3n9eEl6knd7L/Dyr5aIg=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-1.3549694135639427`, 0.3371073831970087}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4697948504651337`*^9, 3.4697948554676*^9}, {
   3.4697950153353767`*^9, 3.469795093503131*^9}, {3.469795206425818*^9, 
   3.4697952215568647`*^9}, 3.4697953386845512`*^9, 3.46979540982016*^9, 
   3.469795461725795*^9, 3.46979607094801*^9, {3.469796122204246*^9, 
   3.4697961753134317`*^9}, {3.469796212247798*^9, 3.469796245104357*^9}, {
   3.469796401474835*^9, 3.469796449531921*^9}, {3.469796613460616*^9, 
   3.469796630380891*^9}, 3.46979667428671*^9, 3.469796729831931*^9, 
   3.487692415914648*^9, 3.4876931011536007`*^9, 3.487693394995811*^9, 
   3.48769344219412*^9, {3.487693583030611*^9, 3.487693621618733*^9}, 
   3.487693720447836*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.487693877048624*^9, 3.4876938820439377`*^9}, 
   3.487693988745748*^9, 3.4876940425133867`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"hIn", " ", 
    SqrtBox["k"], " ", "\[Theta]Initial", " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{"hOut", " ", 
    SqrtBox["m"]}]]}]], "Output",
 CellChangeTimes->{
  3.487693838551909*^9, 3.487693883289611*^9, {3.4876939904390583`*^9, 
   3.487694042968745*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], " ", ")"}], "/.", "pVals"}],
    "/.", 
   RowBox[{"{", 
    RowBox[{"t", "\[Rule]", "3.14"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.487693644602633*^9, 3.487693657067142*^9}, {
   3.487693785876671*^9, 3.487693817163384*^9}, 3.487693924953126*^9}],

Cell[BoxData[
 RowBox[{"-", "1.570795828745387`"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.487693670464888*^9, 3.487693720489924*^9, {3.4876938052694397`*^9, 
   3.487693819053363*^9}, 3.487693924954421*^9, 3.487694035676193*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.3463151926789843`"}], "-", 
  RowBox[{"2.7755575615628914`*^-17", " ", "\[ImaginaryI]"}]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.487693670464888*^9, 3.487693720489924*^9, {3.4876938052694397`*^9, 
   3.487693819053363*^9}, 3.487693924954421*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"v", "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469794826644672*^9, 3.469794854932931*^9}, {
   3.469795024087844*^9, 3.469795092014573*^9}, 3.4697951960266848`*^9, {
   3.469796113066903*^9, 3.469796114355788*^9}, {3.469796599637516*^9, 
   3.469796612718047*^9}, {3.469796719259061*^9, 3.469796723148695*^9}, {
   3.487693526630342*^9, 3.487693527964905*^9}, {3.487693660460479*^9, 
   3.487693664711323*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8Vdv7B3DzeJyzz1EilBOZZbgqUp0nFN2UBvqqRCGk0iBDIV10lcyK
k6HMJCpjyfCgpIQKt2SoboaklFmcs6/f/v21X+/X3q+111r7eT5rs11O7z0m
JCAgoCAoIPD/1/RLLmKGbtc3XyyuRcewK3V0t9jXdR89OGbbKt4eRhdUCIhK
8Wn35xyfrAqIKz2HD7nj8TNxYZx8PHVErOYSenQtBK1nRnJYMyMt8hfCUfeX
W8yiRyxnWDK4/lrhVWzk2ukl7U7kPPeXed+xPwbV8iTXLfBucjxDjWxXWMbj
yU2+p+ZW3uJkqVzdFFGdiGVdn3OmLdI4Mcm6q8eMknDhhE3fhMcdTufNzlzb
Qi5atsWvnn2fxek8ET8hcSsdR7hWDdPHczizqXaX9CUyMMqNdJzi5XJUql2I
botMNDAo+z0Rnc+Jb1RYDA7JwnaWkZKU8V2OFTdjzbeWbPRrXmHwq6SQwzHw
+qNhNgeXJ3a9GrMo4qz9lq7gZJSHLtog/N3jAedNEzMu+m4BBhRJV02+L+VA
2M+p2uRiFO/9ojG2soqTfH9VRnpVGWa23Dn7feVLTrnvosq9sqd4/8G13pNr
ejge02uqv5zsQg/O21s/zg1wmAlx7J+KH9F7SGug/P43jkbgz5shRQMoxQ7X
+GQyzulxvG7RfnkEY4hX2plHpjg/Vlvrt7X/QJdeOxRuneWsrdnquzVtHM82
hbuc1ljgOHwGu8dZk1hyhrZPfjvJUYkcZvq4TmNm4IlRg/8JQIXmBcUC9iyG
3uHvmf4hCHxZqckbKXMo0PkZai4Kw6P/qt9UDP1G9fPuAXbaouDhWVslyl5A
vQ2f9t0xEAUlZXlBq9ULaCzgoD+6ThSs3hxruKK1gOZR24dDLETBdENAEc9w
AZ1ydO3uOYpCv1ev1kvzBUzqmtQXihWF9wPpxaOuCyi6NuTrgylRcPeiWVvl
LODgTPJ+6VoxOPWxSttVmYdZW/7w6X8qBqK6jA5bNg+do9tjH7SIQaLKpSDT
1TzsURN9ua9bDCR2/90jrMfDt/vOmaVNicFF56NPzm/kYV2JjYqetjjcGrgk
3HyQh8mnBEd3JYvDvvcyGXo3eWhXlSbGvi0OsqXcjCdcHrJETVSncsRB4cm7
bMs0HsakeTsml4qD0mr/UttsHoa/6m3/1CYOIrEF41tKeHhGq7LsjIgEhFmM
TCe18vDPIa/ghLMSkDWSbCssyMdtwapFlgES4EQP+cAW4aP50r6e2UsS8Cn1
RegmcT5u2LrT5FCUBLQuq/zjpAwftXP1p1TzJeB651kiX4GP0semPSv6JMC/
eXVjgiEfWweD7bqtJGHxikKQuTMfXwStC4vcJQmila2EqAsfny35VbLRXhI0
k+jNz9z4WGN5hJHpIgkiz5O5Zl58LMoxbzkeLAkxuKVDzJeP0W7iwCuVhEMh
M+WykXzcNRins2KFFGwNGPkpXkq9T2ewy1FNChIcM69vLefjDp/1l1K1pcDt
q2/R5Uo+Wgt9fCO/Xgpsat9f/PWEWp+Kjp/sbikwKt6788FTPq51bKqXCJWC
m7W+nx918VGpa95+akgKPMcqw8em+ZiiuHPR8IcU9N2V7+md5aOCa0bBmUkp
+JWi+aj5Nx/lJrfxxv6TAv2JDgkun48EcSNjZJk0jB/ulVEUIVHYZs33/u3S
cEjoYXUhi8TRpy6XXxRLwwRacyf0SFwZ3+0VUy4NSjsSDMr1SbRz2mVvVy0N
3hd0hn0MSaz7bar9+YU0PI9gFI4ak5igx+yaG5CG/JMCKRVmJJolo4bGchoo
y3lva7Am8YzbWtaYCg281tJf2f9JYp7hPX6pBg3e8tXPfN1BItGa9HbzWhq4
l91UErIlcVDAO3D/bhrs0NwostSexCgvpddX/qZBaPeqzSVHSGxYn1C1I5oG
kfPxA8tcSJwVkchh3qDB/SsDRYGuJB65MxWQnkmD3TyiaIM7icZdLasqamgw
96bbJekEif2bLvgNTtIgbFp46JkviWuY75QtnGXgQE7Wp8UIEoejh0NvHpMB
P5/7lfNXSUyXmvv69YQMGD8OlJu4RiJNRL40KkAGXOZ0znZfp/Zv9sC2d/Ey
EOeWx70WS2JuX7/38WcywAsp/uibRKLjgZ+d1S0y8Kms/KB1MolL3v1nQn8r
A6zWdy7yXBJDX68ULuuXgWExa/mSW9T8G48m82dlYEnZT+WmNBKVCoYwVosO
868PNvlnkdilNqv2RZ8O2vc2Kqtmk3g9UyzSeB0dVNzrRFopL6Ro2H0wp4No
7NUwuVwSu6OPj6xypMPgiYRtMfkkxkld3OnrQodVfa1s9QISrSIiS5s96VCV
fCGmmnLl5XtBJ33pMA5yyp/ukpjoM0ZUxtDBOb13qWQRiX+Ok74SN+kQ8Ld6
WDRloVP03oOpdMiOqQ9jFFPf210/dzGfDpzznRzafRJ3HThrur2BDr6vlhWO
PCBR7N1ft1Ob6XD3WfDjAw9JrN2bIPyzjRp/XMHxBWVdm7K2hB46bDrx3fV2
CYlSnJmjfVN0aIuuCtIrIzFgi6ZE5QJ1X27PTALlYYtD92MFGbD3ftGtGcqN
1g0L5gwGfDcady8tJ9Fgx3SGkhwDKp8ExNEqSLy9U8NqVokBQVfFvrpSvrg3
OvGuNgNeh/oqSVWSOGJXbxpmyAAt8jfPgfL+/019cjRhwBeH55K5lI0cD+gS
2xiwJfNKifEjEjOcojq+2TAgOlLRJoAy/SgGPN3HAOtdFnJVlL8fW93kd5QB
voUJG4wek3jQ0+HEbk8GlI063/Si/MLrOlP7NAOe2kmxMyivO1X3SNiPAUu3
DPV3UM45PXG4P4gBvI2WrUJVJLLOqYk8CmPAGanAH/qUL5//X2FcJANoGf2b
D1J2vFA7a8FlwDER/8A8yi2B42nKdxhg8Xy/+wvKJpdULeZyGbB9XXn4V8p5
l/d/e1PEAPvdg++En1D1GXYttrCMAbqWGw8rUw69UrM2/AkDDvky5Y0pj0f8
6j3cwICVgVXi1pSdIleFrn9BjacSqXuAcmuUvSbzNQPYrh/+9qC8IfZq++g/
DDD3JeV8KBfEV59/1seAkGqb/kDKcjd+Lr89wICuNuWevyiHJ7Eb/Eep/fVv
lrlCeZJr57FnggGpFRkB/+8jqREyOr8ZEFEloBhGuT39SZnIIgOchjfPBFNe
8WZW95cQAb/flor7UbbfQwg4ihFQalm+9wTlqA6tzheSBGiapr47TPnpPou8
tTIEcPowcSflhS7HC1kEAeNRFyM3UDbc72fDWEKASZ9qtRplz/exK4OWEbAQ
tUSdRvmOw93JkeUEdCXmvhqn9vPdh8Ym+xUEKC4zKOqgLHOoj9vIJiDdW+ZF
CWXLvpkT+qsJeKyavDKGcuBhBidNkwCRCfUyD8qlHzVZkroEODbKhW2m/M3Z
fMhXn5p/eX0si7LKv4cefzGinpcL+TBA1UfMQIxTjSkB2XuyV1+i3ORWYKi1
iYCP1XWaVpT5Qw0iSUBAbvkBLxnKXiPThaetCLCNCCyMp+rTauzg3Cp7AnTK
fTUvUPV9e0lYZ4gDAX8srU3Sozxtdu9B3yEC1i+pcf5E9UtGJM8jyYWAfw1A
2IzygkZat+QZAkaOiaZ0UP232/ZZubsPAWWCxV/PUs7z+xH31I+AKdPXCXTK
+5o2bg8OJqDebEQISkkscumvGo8kQEVpvV0Y1f9CkaJJO2MICBEKTpah7FCi
d64wnoAnh6XNblL5ISpwSduNS0BL1ImcNCpfnNJXpL7PJaCuRUsqisojots5
qK6eAJf+/LNjVN65L0Y4KD4jIPmc2eBOyjXqD40DmgnQn+youZdH4nFfgTHD
dgJOm4VmOlN52cjKPJzbS0BH6XKLAipvz+/8sjlqloA2w0umtVQet5yXUvw2
T0Bcp43JdCr1PdKM5raSBFgMCWdrUm4bDX2wKMyEwIm7tdeoPFe/qqriw2TC
en87lh51HnQ3ugke1GWC6u1b0b9jqH7a0rM8WJ8J3ocbWuQoizfYGmcYMSG/
srDdKJrKA9zgMWzChMt5Arpu1Hlzo5poO7eVCX+1n99aRJ1XtuU13OtOTNho
WmnaEULi89wlBrVxTJD8Y4WzvzeJH9Uit39OZEL7cCthe4rEmexFF+FkJkQa
uyeqnSRRLWv05vZ0JmweyaG9PE71++163j93mTAZ6d0950bi5uSTzT8bmeCi
5bli7CCJFVefOanMMEFJbabUZCvVz3++ko/4zYR/Pf0tiixITKF1dIzxmJAY
vdFW2ZzKp7hP26qFWODjZtUzt5lEG+7Cmv0EC8LWebfEmJD4Jd9g8boOC/bs
HPax1KHyszntztxRFiz1Dph/SydR8Fr2AadjLAhfNvhyhkbV45+Fsk2eLPis
F6+6TJrED+2PIhJOs8C9z//8XnEqL991nNYLZoFBwRz33iL1vzgsAa5cFlxW
09oz8ouP7qK+n9vbWZAq3Zwf087H5Stfvue9ZUF+oof9tVY+tpsov9b8hwW0
qpZvf7Xwcd3JptrQXmr+HIcXJ5/zUaxzaeq6ERYM5hIeWnV8zM2otL8tKAt/
iEHI5mI+Dpr9bjllLAu8HzoNPdf46HousIKWIgvDIXOCExup8Yw+Vmily8IV
kyds3w18lJqEym0ZsuCzvtFubj0fH54Ve3Q5Txb+aVKenTHiI/9M/OPpUlmY
/+pp0KfJx6TT+dV9r2TB8XLpO5slfHx5srOhiJSFbQXeVxu+8VDfQ6fd5ugS
SJ73y5WJ5eFrlq60r+lSWDNpfGVvyQJW3w9N1RWWA9eHU730pnkMFNTe3dov
B4mhPf4Leb9Rqu+itXf5MvBqnnv68uwcDuWxb9wJkofN8aL8n6azeENTQaTK
XgEObZ8w13gzjXEp7s1HVZbD7ZicT6peU3jwxuF22tflYGVvtfvf+Qn8bZk7
f6dOEfZuVK146zCOA0PmAY0RSnDx1p7XqyPHMGuToWLbUWU4ZiPPaxcaxeIr
vkwPvRWQ3dUQH5MxjBH2rjuEZ1aA9Fc5EeNNA7i2L/NuRNtKyGqfuLZ38SNy
tVKL23aowP3AY09nR99jSH00d0eVCigd000u036DOxXtc1vU2NA7/XDJc8EG
5A6uqT+kzoYve4q3+byox8Fiid4fGmy4LJ1StTK2HoOghmDosMHAtPKkn1I9
Fh1TDdpnyIb6JH7mOu86lHo4sbdvExtUujaVRHY/wWbLGIGf+9mwKvue1IGi
MmTRPRVDHNggTrtYFW1ahk7vt6wjDrJBPaUytuF5Kc4enzlhdJgNUeyZ5+r/
lqB6rON7P1c22DZV/vq69CGGf9C+v3iaDc271MwT/yvAN1kiL+POsiExcHL/
sHwBHvkmNLnWhw02jnVnajTy0XPt4/9Kz7Nh0DrxyLWdeVj2X7yCpR8bhv3u
Hf/gkYtfVOfDrwaxwVrnZRLxNhPXjHXcUbjEBv3a1v2O3zPwYmXRk8IQNgRE
lh/IF83A5yF//2P2FxuWTuvtG+Dcxp8VzvsOhLFhwPH0wN3OVHRibZB2CqfW
o72hROJuChb2yqr/usKGU0ktybf6uehdmKPmEMGGe9fkZBUhGf0GTWx4V9mQ
rcIzIJ1vYuWzj6I9kWwYcjEUzTJLxHILmpF/FBvOGlaZObrEY/TuiNVB0WzY
m7Bd0Wd9HN4e3/C3RBwbPJVPMfZzI/FzmM9UbDwbLpoQBcnLIpDMmdcISWBD
OKuYe2MqHP8P9tDftQ==
     "]], 
    LineBox[{{8.798486538260166, -0.003150974654617387}, {
     8.801224024202822, -0.0015830812827331267`}, {8.804210372503903, 
     0.00012734877846019008`}, {8.807196720804985, 0.0018377787594111474`}, {
     8.811012610300807, 0.004023326348617222}, {8.814164866840835, 
     0.005828775681417148}, {8.82080119639879, 0.009629706750714362}, {
     8.823621636460924, 0.011245094076231478`}, {8.827437525956745, 
     0.013430607889613193`}, {8.8340738555147, 0.01723146731328487}, {
     8.847346514630608, 0.024833013959365043`}, {8.850664679409586, 
     0.026733356181528237`}, {8.85414875242751, 0.02872869320174607}, {
     8.85730100896754, 0.03053397703821584}, {8.860785081985465, 
     0.032529265884095354`}, {8.863937338525496, 0.034334503355300444`}, {
     8.867255503304472, 0.03623472740689114}, {8.870573668083448, 
     0.03813492344016413}, {8.874223649340323, 0.04022510497437521}, {
     8.877209997641405, 0.0419352256169913}, {8.880528162420381, 
     0.04383532884578927}, {8.887164491978336, 0.0476354323051667}, {
     8.900437151094245, 0.05523518653485446}, {8.926982469326063, 
     0.07043255955271542}, {8.980073105789698, 0.10081618050771667`}, {
     9.178333957651894, 0.21405956980524227`}, {9.372697197154395, 
     0.3245244790332866}, {9.583570987562506, 0.4434423413232349}, {
     9.78034308397827, 0.5532560903898252}, {9.993625731299645, 
     0.6707318298602243}, {9.993725326059312, 0.670786263762856}, {
     9.99382492081898, 0.6708406972493749}, {9.994024110338316, 
     0.6709495629739627}, {9.994422489376985, 0.6711672894284927}, {
     9.995219247454326, 0.6716027223523573}, {9.996812763609006, 
     0.672473508206231}, {9.996912358368672, 0.672527928778606}, {
     9.99701195312834, 0.672582348933922}, {9.997211142647675, 
     0.6726911879932602}, {9.997609521686346, 0.6729088611059303}, {
     9.998406279763685, 0.6733441873005992}, {9.998505874523353, 
     0.6733986011964816}, {9.99860546928302, 0.6734530146748325}, {
     9.998804658802356, 0.6735618403788167}, {9.999203037841026, 
     0.6737794867750966}, {9.999302632600692, 0.673833897329891}, {
     9.99940222736036, 0.6738883074669164}, {9.999601416879695, 
     0.6739971264875451}, {9.999701011639363, 0.6740515353710881}, {
     9.999800606399031, 0.6741059438367443}, {9.999900201158699, 
     0.6741603518844806}, {9.999999795918367, 0.674214759514275}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-1.8580374443075474`, 0.674214759514275}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.487693583080407*^9, 3.4876936216520863`*^9}, 
   3.4876936653269453`*^9, 3.487693720802017*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"hOut", "+", 
      RowBox[{"B", " ", "t"}]}], ")"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469795112053308*^9, 3.469795140831382*^9}, 
   3.4697951999064627`*^9, {3.469795272170178*^9, 3.469795272582017*^9}, {
   3.469795316690373*^9, 3.469795316952531*^9}, {3.4697961168455963`*^9, 
   3.46979611819587*^9}, {3.487692424681724*^9, 3.48769242971386*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3k41HkcwPEZcjSmMnKEmGFGriJttZH6fKVHiizFjqZnlZ+WDk2JKVE6
EKMVtTpczdrkeho9KpVdSco9RD2rpCIMFbU/xjjGjNnv/vF+3s/Lijiy41cN
CoXih/v/+QmEtsu+ixtXH43TolBIePGa5ctlHYBC6lS+B5UEdUNNIot1Egx/
j16bqEFCfm06U4slBFllZIS2FgmRGwSHp5jZcG82pJlOI+H17P4sklkKK1M8
000NSdDp6bf9xqwCx5t0ox/sSChoEUWNMJvBWnKTE+5PQvldYU+k0ztopZ1O
zigmIQI6s0ePDcD0okG38WkS+FL7gQflX8BAemljtfcY0KySbHvXkTCcJ0vc
KhqDS/qtDgV7ZeBh/slCnxwDoifwqaZkErinUmeyt4xDVH0SccRWAcHiaPbF
/HGoOErfuWSrCj4WDhdUfhuHgvhDX1dyKYh1xoi4tVkG50XKgIlRKhpmSo63
XJUB5XUfqo7TRDmZDd3BUhksiwmPDXTQQrqDcQll6ydgUH79Z70n2kihenRi
zW8TsE168PSVKF1Uoii/lzgwAX6DmY6WljTk2fhlvaurHL4+J842ifUQwROb
2gnl4MTosvDcswC5dzi4vuuVAw3koe9lC1Ee3UVcv3IStnzjTVkH6aOHjmNE
TOokvK3bR+UtZ6AnZvLwtI+TUJn6IoQlZyDvjnNPu52mIFxL0NfeboAy9jft
Gk2egrBj8ZX0nMVod+N173VvpsA5wrHdN9QQLZ4sSx5ZNg0vDZbrCVyN0AWd
2HnE6Wn4u/x87nJNY5TQ2/aG0T4N8VQHf8kHY7Qq58Noks0M0N7HefMfmKBO
jov/nvgZkBZZZYlOLUGTggW60a0zkGVnOq8qyBT9U3qLus1aAZk54Y2hLDPk
Vlj3Ey9aAbysX9rpw2YojW8z2lmngOnNt2dENebomvmmFrrpLAxIN8XWpSxF
dhnDyrMHZuHPDS7mbaEWKEbqFfW4dhbEyQJGxApL5KXh7GZvoISUoDAfTbkl
0vyXF0AllLDmfUFpShsTnapBZXmPlXDDPlfc5sNCcYF3uVHzVXCmNv2GTxUL
rWp74zU/VAXbzYNut3Cs0FujzUm6j1TgwW/czRBaIaqNq7GHzhyIlhIcidwK
DRl//uIeMgec58XX/HZbI/+XTINjd+cgc0Wdw6saa1TEzU1dqJ6DcNm8zmYH
Nnpc14H4QWogKsZZwgw28pu4tF2nSA1NLbqJ1Uo2+kNXJy9MpYZIz0+ZzdhP
NM4t4GPrV1fd7MJ+p1QkxGIHiw/+RWIbjn0PTccezpCMcVRsdKG7y/YRtnZQ
5t507Miyovu0OTV49ppsDJljo7W+Xq0V2ENc0ucQ9g6vWvdq7LSOpl2x2Hzk
Vt6A/erZScEV7JLVTpd7sInCnjsN2EstjLlaajWcPSAyd1azEeW7tD8Ym9N/
wt4d2+LznsAw7Cae/49bsd36u+sPY+v7UneGYcd0tZWcxxY5haVdxx6qqeTf
wd5UvP5GIbZGlXPfQ+whpmFRBbbl/dKAZ9hOjPpnrdjBxfmru7BfCfNfvsUW
FJgU9WEf1zj+QYp9JfeyyQi2WbzfyDh2+VU9oRy7RrZsRo0tyUhWqLH/A3EN
aWg=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.},
  PlotRange->{{0, 10}, {1.0000000204081632`, 1.9999999795918368`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.469795141430767*^9, {3.4697952064742517`*^9, 3.4697952215933313`*^9}, 
   3.4697953387362556`*^9, 3.469795409849464*^9, 3.469795461771102*^9, 
   3.469796070980213*^9, {3.469796122252646*^9, 3.4697961753544807`*^9}, {
   3.469796212281502*^9, 3.469796245153921*^9}, {3.4697964015035057`*^9, 
   3.4697964495780277`*^9}, 3.469796630411598*^9, 3.4697966743268347`*^9, 
   3.4697967298642387`*^9, 3.487692430425514*^9, 3.487693101199538*^9, 
   3.48769339503596*^9, 3.487693442243182*^9, {3.487693583131337*^9, 
   3.4876936217018967`*^9}, 3.487693720911962*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model with nonlinear in-lever (unfinished)", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793209727414*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.4692784482487173`*^9, {3.469278892566986*^9, 3.469278908586074*^9}, {
   3.469278948273715*^9, 3.4692789822518587`*^9}, 3.469279051396206*^9, 
   3.469279172313555*^9, 3.469281290688089*^9, 3.469283763985681*^9, 
   3.469287450972332*^9, 3.4692916006669083`*^9, 3.469291820514844*^9, 
   3.469452442876277*^9, 3.469452574827408*^9, 3.4694529291230183`*^9, 
   3.469453046665125*^9, {3.469453127320716*^9, 3.469453153961191*^9}, 
   3.4694532536618433`*^9, 3.469453382600111*^9, {3.469453428854762*^9, 
   3.469453454526821*^9}, 3.469453529187903*^9, 3.469453736960314*^9, {
   3.469453770671598*^9, 3.469453823133222*^9}, {3.469454025282868*^9, 
   3.4694540619796553`*^9}, 3.46945418491405*^9, 3.4694580191082373`*^9, 
   3.469458150680461*^9, 3.4694583257774754`*^9, 3.469458392002483*^9, 
   3.4694585308744383`*^9, {3.469458883503354*^9, 3.4694589038572493`*^9}, 
   3.4694589521805077`*^9, 3.4694590817377577`*^9, 3.469459114244115*^9, 
   3.4694592434365807`*^9, 3.4694596149438047`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", ".003"}], ",", 
     RowBox[{"k", "\[Rule]", "15"}], ",", 
     RowBox[{"hOut", "\[Rule]", ".04"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L1", "\[Rule]", "1"}], ",", 
     RowBox[{"L2", "\[Rule]", ".75"}], ",", 
     RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"KT", "[", "\[CurlyPhi]_", "]"}], ":=", 
  FractionBox[
   RowBox[{"L1", " ", "L2", " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["L1", "2"], "+", 
          SuperscriptBox["L2", "2"], "-", 
          SuperscriptBox["L3", "2"], "-", 
          SuperscriptBox["L4", "2"], "+", 
          RowBox[{"2", " ", "L3", " ", "L4", " ", 
           RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}], ")"}], "2"], 
       RowBox[{"4", " ", 
        SuperscriptBox["L1", "2"], " ", 
        SuperscriptBox["L2", "2"]}]]}]], " ", 
    RowBox[{"Csc", "[", "\[CurlyPhi]", "]"}]}], 
   RowBox[{"L3", " ", "L4"}]]}]], "Input",
 CellChangeTimes->{{3.469452305256894*^9, 3.469452318725951*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"KTval", "[", "\[Theta]_", "]"}], "=", 
   RowBox[{
    RowBox[{"KT", "[", " ", 
     RowBox[{
      RowBox[{".9", "\[Theta]"}], "+", 
      RowBox[{"Pi", "/", "50"}]}], "]"}], "/.", "lVals"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4694528925891953`*^9, 3.469452892869759*^9}, {
   3.469452991540846*^9, 3.4694530141253643`*^9}, {3.4694533753771763`*^9, 
   3.4694533771752253`*^9}, {3.469453412587338*^9, 3.4694534254494553`*^9}, {
   3.469453524646551*^9, 3.4694535260631742`*^9}, {3.469453580892004*^9, 
   3.469453585279595*^9}, {3.469453626151922*^9, 3.469453641079536*^9}, {
   3.469453690073833*^9, 3.4694537183615723`*^9}, {3.469453766817746*^9, 
   3.4694538198309593`*^9}, {3.4694538754421453`*^9, 3.469453989671708*^9}, {
   3.4694540472286453`*^9, 3.469454059635293*^9}, {3.46945418117165*^9, 
   3.469454181376223*^9}, 3.469458376800809*^9, 3.46945923986132*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"L3vals", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{
     RowBox[{".2", "*", ".5"}], ",", 
     RowBox[{".2", "*", "1.5"}], ",", 
     RowBox[{".2", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.5", "-", "0.5"}], ")"}], "/", "numLs"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataList", "=", 
   RowBox[{"{", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.469457556486951*^9, 3.4694576209270983`*^9}, {
  3.469457687372678*^9, 3.4694577649048634`*^9}, {3.46945783154907*^9, 
  3.4694578565276203`*^9}, {3.469458829625457*^9, 3.4694588324713373`*^9}, {
  3.469459227452791*^9, 3.469459232140562*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"For", " ", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<", 
     RowBox[{"numLs", "+", "1"}]}], ",", "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"L3", "=", 
      RowBox[{"L3vals", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
       RowBox[{
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"k", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"hOut", "/", 
                   RowBox[{"KTval", "[", 
                    RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ")"}], "2"],
                 " ", 
                RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["hOut", "2"], "m", "  ", 
                RowBox[{
                 RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
              "0"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], 
             ",", 
             RowBox[{
              RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
              "\[Theta]Initial"}]}], "}"}], "\[IndentingNewLine]", "/.", 
           "pVals"}], ",", "\[Theta]", ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"dataList", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dataList", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"KT", "[", 
              RowBox[{"Pi", "/", "2"}], "]"}], "/.", "lVals"}], ",", "10"}], 
           "]"}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", 
              RowBox[{"{", 
               RowBox[{"t", "\[Rule]", 
                RowBox[{"Table", "[", 
                 RowBox[{"t", ",", 
                  RowBox[{"{", 
                   RowBox[{"t", ",", "0", ",", "2", ",", 
                    RowBox[{"2", "/", "1000"}]}], "}"}]}], "]"}]}], "}"}]}], 
             "]"}], ",", "10"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Clear", "[", "\[Theta]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469452328353825*^9, 
   3.469452333009631*^9}, {3.4694523763575783`*^9, 3.469452428790606*^9}, {
   3.469452559286502*^9, 3.4694525618215*^9}, {3.469452666365296*^9, 
   3.469452668403099*^9}, {3.469452728468294*^9, 3.469452742200798*^9}, {
   3.469452780798533*^9, 3.4694527820741997`*^9}, 3.4694528239976377`*^9, {
   3.469453035175509*^9, 3.4694530405188847`*^9}, {3.4694531003403797`*^9, 
   3.469453101786481*^9}, 3.4694531486705*^9, {3.4694532059283867`*^9, 
   3.469453207117292*^9}, {3.4694538537480373`*^9, 3.469453854041751*^9}, {
   3.469457476687833*^9, 3.469457477409114*^9}, {3.469457540870332*^9, 
   3.469457543658971*^9}, {3.469457602136194*^9, 3.469457674484128*^9}, {
   3.469457861973967*^9, 3.469458005919023*^9}, {3.469458084606913*^9, 
   3.469458133262217*^9}, 3.469458273375699*^9, {3.4694584836579027`*^9, 
   3.469458491176848*^9}, {3.4694585629216537`*^9, 3.469458592021925*^9}, {
   3.46945867988421*^9, 3.469458708376335*^9}, {3.469459062176735*^9, 
   3.469459072960123*^9}, {3.4694591040667887`*^9, 3.4694591065381403`*^9}, {
   3.469459174094603*^9, 3.469459235760702*^9}, {3.469459569755437*^9, 
   3.4694595939249477`*^9}, {3.469459648078041*^9, 3.469459648855221*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"dataList", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4694597214630423`*^9, 3.469459739022676*^9}, {
  3.469459796818533*^9, 3.4694598021699877`*^9}}],

Cell[BoxData[
 RowBox[{"0.8712620816575536`", "\[InvisibleSpace]", "-", 
  RowBox[{"0.1437220320656244`", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.469459739749297*^9, 3.469459853891564*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"dataList", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{"line", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1.", ",", "2.4"}], "}"}]}], "]"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.4694580246913958`*^9, 3.4694580580186033`*^9}, {
  3.469458962118441*^9, 3.4694590038505583`*^9}, {3.469459149569829*^9, 
  3.469459156336391*^9}, {3.469459251589384*^9, 3.46945925269318*^9}, {
  3.4694597708520527`*^9, 3.469459885206601*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{1.1856753394332737`, 0.7218157785458922}, {1.431753642198354, 
      0.6535016347160759}, {1.6925637538986782`, 0.6104003043108741}, {
      1.9782226506855007`, 0.5798575720753185}, {2.298523719227381, 
      0.5566315255879501}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Hs0lHkcBvB3Zqxko1BtROuyaGpTVFumnO/rllyOCpWVS2XS5SjOKtNq
zIxLk7UkqVmztiVJLnusVBN2hJhuG22HsKWYd96ZaYfqxWDGdX/98ZznfP56
znnsDieEHKFjGBaM8rkVx6sXYBgFhenSxfSdagii53o/pFGQ1zBZJvBTg+TX
U/xMBgVCyo01v0MNWX+7ThotoCApupI946uGb9fVq8xMKQhmiRomvNWQTLXL
HKwpMBhNiB0CNSzkvMvw20pB4iGH+91b1LA+0wzLS6TAD8+OvuWshmAvovGq
hoISlwPTBQZqaOX+ECKMHIGw4cqyLoUK6vDpJtbzEXD+VCq736aC5IqPQ3G+
o1BuX7xJUaKC3JzrE1zJKAgcLWsPCVTAWdrcZuw6Bgbfi350jlLBgOMrdmTl
GFS+bGrMZ6mg6E4V8YulFiosY412WalgjVJjH1ighZDLX5aFTiphUYEG3huM
w/7XrkHVPUqIf0Zs8D89Dtyj9PhbEiUU3/Ql7T6MQ5Bjz7+aAiU4zR49TUZN
QHKdc1hakhIEOu2jVX0TEJTItY7ZrYTw1JQP1rsnwTPpXKR8nRIyeM2UQcsk
XPbVVUhMlJDmkCBhu+sgd+dZ7y4NCV0+78JrqnSgsErWeD0jQbewvinBUQ+k
DWdAX05CUXj2hPaaHgzi7IP2ZpKQ72C9iG06BYLUQBmDTULE5RVkQNYUlMs4
OXqcBE5qd+HKqSlY/dbuoJctCeajWXa1x6fhqXty9XqMBIFxRbyUmIZljzt8
2G8V4FUsvFIXOgNShxuaIakCenpf8Gw7Z8D09rl3jWIFvBebeYTsmAVBxpy/
C0cBwX3mfScls+iP+VbtPgVcaORtpm2Yg/ZJehZ9kwKWWlYl8K7PgUicGRFr
oYCvaZ2pzUvmIUtQW3ZsjIDZnMjgsz/Ng2PhwPZ7/xDgcrVq2mpqHmz4OfKw
WgLEJbfvWbEwvEW0vXtbLgGyux/eWCdheFPqia4z8QTUmjgNY9UY/rrSKyAs
iIDM+oK3JWoMv2G4anEKk4B0u0NNm21p+CM3zuCoEQEn+mN5wigafiWva75O
KQez/sPMBjENT3d9LfqqTQ5ycevDwZc0/HlpNOtFqRyKKvd6tJvS8WYf1dpO
vhz4HP/y3/zouKlkiGkbIwf7bHf9Pj4d58YXFS8HOdR8jF7X8RcdF4UGx4ZZ
y4FtRu7aqqXjxsb8jcrpQWAIfw+NcWXgzJG6PU19g0CmmdyIQ35y/pVNA3J7
Knf0JPJRK91/d5GFZyLyucg3vT3S/0A2PrL8hRjZVvS4rgjZ3OdiQDfyim39
FinI9nSep78bAzc8/0XPd8iMueFLu5FvWq4udfu8pz8wuB/ZpybglAty+Yg7
Pw45vTfP0Al5jXxcmoE8x7TasgzZreXk1gfI2k6XwrHeQbCQ9l+QIV+J3cP+
hKy9H9j7HNlNl7RhCFnyJzP5DXKiXcMTAplVrLyjQx5O8ta/RF5ZFMbANjLw
n43iZB3IM6K2kAXIa65l5T9FfnDx+sgy5GOPOpityMXZSzxtkA0PUONSZIGQ
f+kb5PJP5g/rkQ+mfxxYi+ybufniXWRPXtT6jcjkivCIWuT/AfmYaKE=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.2000000000000002`, 0.6},
  PlotRange->{{1.1856753394332737`, 2.298523719227381}, {0.5566315255879501, 
   0.7218157785458922}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.469458058804802*^9, 3.4694581512549*^9, {3.46945893326653*^9, 
   3.4694590045565767`*^9}, 3.469459118752985*^9, 3.469459156870253*^9, 
   3.4694592538491173`*^9, 3.4694596152764997`*^9, {3.469459847104918*^9, 
   3.469459885808177*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Gear model ", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793224224224*^9}, {3.46979579304276*^9, 3.469795796273385*^9}, {
   3.487692222343367*^9, 3.487692223045719*^9}, {3.4876997189765882`*^9, 
   3.487699724254541*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.469793349824625*^9, 3.469793434749823*^9, 3.469793514246719*^9, 
   3.469793553222492*^9, 3.469794815476325*^9, 3.469794895859846*^9, 
   3.469794967676996*^9, 3.469794998812542*^9, {3.4697950372387943`*^9, 
   3.469795078912242*^9}, {3.469795206200234*^9, 3.4697952212795153`*^9}, 
   3.469795338471965*^9, 3.469795409552553*^9, 3.4697954614953947`*^9, {
   3.469795504380664*^9, 3.469795547116843*^9}, 3.4697959205843573`*^9, 
   3.46979607066083*^9, {3.469796121943253*^9, 3.469796175003022*^9}, {
   3.46979621201355*^9, 3.4697962448683367`*^9}, {3.4697964012182837`*^9, 
   3.469796449248075*^9}, 3.469796545393701*^9, 3.469796630048656*^9, 
   3.469796674011136*^9, 3.469796729507155*^9, {3.4876922986647797`*^9, 
   3.4876923235807047`*^9}, 3.487692395611313*^9, 3.4876931009178762`*^9, 
   3.4876933946705847`*^9, 3.4876934419236717`*^9, {3.487693582749264*^9, 
   3.487693621303183*^9}, 3.4876937196103983`*^9, {3.487694003340445*^9, 
   3.487694031338401*^9}, 3.487694070339512*^9, 3.487699898204524*^9, 
   3.487700145300898*^9, 3.4877002221760197`*^9, 3.487950777467659*^9, 
   3.487952076683518*^9, 3.48795211358915*^9, 3.487952186772587*^9, {
   3.487952662623034*^9, 3.487952677073228*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", "1"}], ",", 
     RowBox[{"k", "\[Rule]", "1"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".5"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Theta]0", "\[Rule]", 
      RowBox[{"Pi", "/", "4"}]}], ",", 
     RowBox[{"B", "\[Rule]", 
      RowBox[{"1", "*", ".1"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tSim", " ", "=", " ", "10"}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}, 
   3.469793317289383*^9, {3.469794873587481*^9, 3.4697948877388277`*^9}, {
   3.4697949372558203`*^9, 3.4697949463186607`*^9}, {3.469795029459815*^9, 
   3.46979502972163*^9}, {3.46979506811007*^9, 3.4697950682836447`*^9}, {
   3.4697951513781023`*^9, 3.469795152016755*^9}, {3.469795214877927*^9, 
   3.4697952151716547`*^9}, {3.469796040816152*^9, 3.4697960975709667`*^9}, {
   3.4697961289659433`*^9, 3.4697962417324753`*^9}, {3.469796394812394*^9, 
   3.4697964459414062`*^9}, {3.469796669019246*^9, 3.469796669673531*^9}, {
   3.487692316557778*^9, 3.4876923172282457`*^9}, {3.487692389000257*^9, 
   3.48769238919969*^9}, {3.487693595513989*^9, 3.487693615921681*^9}, {
   3.48769988038624*^9, 3.487699885072384*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m", " ", 
            SuperscriptBox["hOut", "2"], "  ", 
            SuperscriptBox["gr", "2"], " ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}], "+", 
           RowBox[{"k", " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "-", 
           RowBox[{"k", " ", "\[Theta]R"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}]}], 
        "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4876999395568457`*^9, 3.487699945812736*^9}, {
   3.4877000044068937`*^9, 3.487700006718999*^9}, {3.487700037067417*^9, 
   3.487700037449112*^9}, {3.487700071140759*^9, 3.4877000842033167`*^9}, {
   3.48770011713463*^9, 3.487700140103853*^9}, {3.487700214876213*^9, 
   3.487700215738241*^9}, {3.487952009343966*^9, 3.487952016157463*^9}, {
   3.487952095033621*^9, 3.4879521099280252`*^9}, {3.487952163445133*^9, 
   3.487952183796063*^9}, {3.487952602604438*^9, 3.487952630604047*^9}, 
   3.487952674200457*^9, {3.4879527132915573`*^9, 3.4879527325480003`*^9}, {
   3.487952824768532*^9, 3.487952847521459*^9}, {3.487955652535738*^9, 
   3.4879556594227953`*^9}, {3.487955796630775*^9, 3.487955796956603*^9}, {
   3.487956104877569*^9, 3.487956124342345*^9}, 3.487957388355695*^9, 
   3.487957423693552*^9}],

Cell[BoxData[
 RowBox[{"\[Theta]R", "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Theta]0", "-", "\[Theta]R"}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    FractionBox[
     RowBox[{
      SqrtBox["k"], " ", "t"}], 
     RowBox[{"gr", " ", "hOut", " ", 
      SqrtBox["m"]}]], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.487952819886945*^9, 3.4879528519661283`*^9}, 
   3.487955672030621*^9, 3.4879557073515863`*^9, 3.487955800135553*^9, {
   3.48795610729629*^9, 3.487956128655867*^9}, 3.487956324802905*^9, {
   3.48795739134818*^9, 3.487957425036194*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SqrtBox["k"], " ", 
    RowBox[{"(", 
     RowBox[{"\[Theta]0", "-", "\[Theta]R"}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"gr", " ", "hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{"gr", " ", "hOut", " ", 
    SqrtBox["m"]}]]}]], "Output",
 CellChangeTimes->{
  3.487955707374448*^9, 3.487955800152092*^9, {3.48795610731842*^9, 
   3.487956128683586*^9}, 3.487956324830715*^9, {3.487957391378138*^9, 
   3.4879574250714684`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], " ", "gr", " ", 
   "hOut"}]}]], "Input",
 CellChangeTimes->{{3.487955762787274*^9, 3.487955766277123*^9}, {
  3.487957821961236*^9, 3.487957822407012*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SqrtBox["k"], " ", 
    RowBox[{"(", 
     RowBox[{"\[Theta]0", "-", "\[Theta]R"}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"gr", " ", "hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   SqrtBox["m"]]}]], "Output",
 CellChangeTimes->{
  3.487955707391452*^9, 3.487955767863152*^9, 3.487955800185087*^9, {
   3.487956107335473*^9, 3.4879561286998367`*^9}, 3.4879563248468103`*^9, {
   3.4879573914102707`*^9, 3.487957425104171*^9}, 3.48795782376339*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Gear model with drag - no solution", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793224224224*^9}, {3.46979579304276*^9, 3.469795796273385*^9}, {
   3.487692222343367*^9, 3.487692223045719*^9}, {3.4876997189765882`*^9, 
   3.487699724254541*^9}, {3.4879631358437557`*^9, 3.4879631375380783`*^9}, {
   3.487965654505705*^9, 3.487965659016355*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.469793349824625*^9, 3.469793434749823*^9, 3.469793514246719*^9, 
   3.469793553222492*^9, 3.469794815476325*^9, 3.469794895859846*^9, 
   3.469794967676996*^9, 3.469794998812542*^9, {3.4697950372387943`*^9, 
   3.469795078912242*^9}, {3.469795206200234*^9, 3.4697952212795153`*^9}, 
   3.469795338471965*^9, 3.469795409552553*^9, 3.4697954614953947`*^9, {
   3.469795504380664*^9, 3.469795547116843*^9}, 3.4697959205843573`*^9, 
   3.46979607066083*^9, {3.469796121943253*^9, 3.469796175003022*^9}, {
   3.46979621201355*^9, 3.4697962448683367`*^9}, {3.4697964012182837`*^9, 
   3.469796449248075*^9}, 3.469796545393701*^9, 3.469796630048656*^9, 
   3.469796674011136*^9, 3.469796729507155*^9, {3.4876922986647797`*^9, 
   3.4876923235807047`*^9}, 3.487692395611313*^9, 3.4876931009178762`*^9, 
   3.4876933946705847`*^9, 3.4876934419236717`*^9, {3.487693582749264*^9, 
   3.487693621303183*^9}, 3.4876937196103983`*^9, {3.487694003340445*^9, 
   3.487694031338401*^9}, 3.487694070339512*^9, 3.487699898204524*^9, 
   3.487700145300898*^9, 3.4877002221760197`*^9, 3.487950777467659*^9, 
   3.487952076683518*^9, 3.48795211358915*^9, 3.487952186772587*^9, {
   3.487952662623034*^9, 3.487952677073228*^9}, {3.48796317979565*^9, 
   3.487963203292646*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", "1"}], ",", 
     RowBox[{"k", "\[Rule]", "1"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".5"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Theta]0", "\[Rule]", 
      RowBox[{"Pi", "/", "4"}]}], ",", 
     RowBox[{"B", "\[Rule]", 
      RowBox[{"1", "*", ".1"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tSim", " ", "=", " ", "10"}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}, 
   3.469793317289383*^9, {3.469794873587481*^9, 3.4697948877388277`*^9}, {
   3.4697949372558203`*^9, 3.4697949463186607`*^9}, {3.469795029459815*^9, 
   3.46979502972163*^9}, {3.46979506811007*^9, 3.4697950682836447`*^9}, {
   3.4697951513781023`*^9, 3.469795152016755*^9}, {3.469795214877927*^9, 
   3.4697952151716547`*^9}, {3.469796040816152*^9, 3.4697960975709667`*^9}, {
   3.4697961289659433`*^9, 3.4697962417324753`*^9}, {3.469796394812394*^9, 
   3.4697964459414062`*^9}, {3.469796669019246*^9, 3.469796669673531*^9}, {
   3.487692316557778*^9, 3.4876923172282457`*^9}, {3.487692389000257*^9, 
   3.48769238919969*^9}, {3.487693595513989*^9, 3.487693615921681*^9}, {
   3.48769988038624*^9, 3.487699885072384*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m", " ", 
            SuperscriptBox["hOut", "2"], "  ", 
            SuperscriptBox["gr", "2"], " ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}], "+", 
           RowBox[{"Cd", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], ")"}], "2"]}], " ",
            "+", 
           RowBox[{"k", " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "-", 
           RowBox[{"k", " ", "\[Theta]R"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}]}], 
        "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4876999395568457`*^9, 3.487699945812736*^9}, {
   3.4877000044068937`*^9, 3.487700006718999*^9}, {3.487700037067417*^9, 
   3.487700037449112*^9}, {3.487700071140759*^9, 3.4877000842033167`*^9}, {
   3.48770011713463*^9, 3.487700140103853*^9}, {3.487700214876213*^9, 
   3.487700215738241*^9}, {3.487952009343966*^9, 3.487952016157463*^9}, {
   3.487952095033621*^9, 3.4879521099280252`*^9}, {3.487952163445133*^9, 
   3.487952183796063*^9}, {3.487952602604438*^9, 3.487952630604047*^9}, 
   3.487952674200457*^9, {3.4879527132915573`*^9, 3.4879527325480003`*^9}, {
   3.487952824768532*^9, 3.487952847521459*^9}, {3.487955652535738*^9, 
   3.4879556594227953`*^9}, {3.487955796630775*^9, 3.487955796956603*^9}, {
   3.487956104877569*^9, 3.487956124342345*^9}, 3.487957388355695*^9, 
   3.487957423693552*^9, {3.4879631660875387`*^9, 3.4879631989369097`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \
hOut\\^2\\\\ m\\\\ \\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\
\[Prime]\[Prime]\\\", Rule[MultilineFunction, \
None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\
\\\"\[Theta]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, \
None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\
\[Theta][0]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609695882*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609771282*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609774588*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656097777653`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656098186493`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609821917*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609825141*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609828333*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609831593*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609834817*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656098380423`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609841275*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609844573*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656098477917`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609850995*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656098857737`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796560988771*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609889291*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609890938*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656098924503`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609893976*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \\(\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)\\)\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\
\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)]\
\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609897519*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965609934928*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656099852057`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656100350924`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656100836897`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610133709*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610191218*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656102339582`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610287713*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610335126*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610391173*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610440195*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610491363*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610540577*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610588935*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610641148*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610692882*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \\(\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)\\)\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\
\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)]\
\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610734852*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610789311*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610841989*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610892415*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656109419813`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965610989789*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611042614*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656110947104`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611142281*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611191279*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611242639*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611291377*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611342763*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656113932734`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611443434*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656114946823`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611543578*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611593668*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611643056*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611692631*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611743704*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611792375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611844042*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611896805*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965611943804*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656119924393`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612044199*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612092503*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612144532*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656121934557`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656122446947`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612296781*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612344687*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612393532*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612445362*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612496129*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612545727*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656125962677`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612645619*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615350834*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153531733`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153552027`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153572407`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615359292*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153612623`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615363228*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615365206*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153672047`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \\(\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)\\)\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\
\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)]\
\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615369771*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615371696*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615373604*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615375496*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615377428*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615379299*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615381159*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615383033*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615384953*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615386894*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615388837*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153907413`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615392646*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615394486*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615396308*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615398123*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656153999777`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \\(\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)\\)\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\
\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)]\
\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615402391*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154041567`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615405898*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154076223`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615409417*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615411121*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615412826*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154145203`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615416252*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615417925*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154196*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154212513`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154229517`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154245977`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561542623*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615427848*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561542951*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615431102*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615432694*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656154848413`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615537532*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615584324*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615635084*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615684806*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615735375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561578426*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656158342857`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615884692*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615940291*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965615985364*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965616035001*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965616085307*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965616671236*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965616718951*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656167677402`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656168167067`*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965616866539*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965616917178*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656169680862`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561701689*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617199288*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617251734*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617300375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656173564577`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617403061*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617456869*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656175063562`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617557082*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617607863*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"ivar\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(0\\) is not a valid variable. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617657873*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617707759*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656177576714`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617811936*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617857896*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617907463*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965617958724*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618008758*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656180587893`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656181087*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618158876*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618212031*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561825948*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618309305*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618359067*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618409463*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618458973*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618509316*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618559269*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618613365*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618660049*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618709322*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618759796*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656188120604`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618860168*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(0\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \\(\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)\\)\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\
\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)]\
\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965618911426*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \
\\(\\((\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\\(\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)/.\
\[InvisibleSpace] \\(\\({\\(\\(Equal[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\
\\)\\)]\\)\\), \\(\\(Equal[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\
\\), \\(\\(Equal[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)}\\)\\)\
\\)\\)/.\[InvisibleSpace] \\(\\({\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\
\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\((\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)/.\[InvisibleSpace] \\(\\({\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)}\\)\\))\\)\\)\\)\\)}\\) is neither a list of replacement \
rules nor a valid dispatch table, and so cannot be used for replacing. \\!\\(\
\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656189606857`*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619008967*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619060729*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619110818*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656191606627`*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619404457*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619455145*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619503808*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619564816*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656196142063`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619664692*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619703334*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656197648163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656198335047`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619881748*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619932005*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965619982346*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\[LeftSkeleton] 1 \[RightSkeleton]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656200337963`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620093359*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656201544847`*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656202320347`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796562028358*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620334222*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620388403*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656204501953`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620499824*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620550606*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656205999193`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(k\\\\ \\(\\((\\(\\(Hold[\\(\\(\[Theta][t]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\), TagBox[\\((\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\))\\), Derivative], Rule[MultilineFunction, \
None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\
\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\) \[Equal] 0\\)\\), \\(\\(\
\[Theta]0 \[Equal] \\(\\((\\(\\(Hold[\\(\\(\[Theta][0]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \
\\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)}\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620664432*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620717255*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656207669163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620818028*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796562086913*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965620936029*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656209879637`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656210554333`*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621118396*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621167644*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621219408*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796562126943*^9}],

Cell[BoxData["$Aborted"], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621335971*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621402021*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621480897*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621537318*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621603445*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796562167043*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796562173561*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656217869177`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621837009*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965621915545*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656219708233`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656220377417`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622106969*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(k\\\\ \\(\\((\\(\\(Hold[\\(\\(\[Theta][t]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\), TagBox[\\((\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\))\\), Derivative], Rule[MultilineFunction, \
None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\
\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\) \[Equal] 0\\)\\), \\(\\(\
\[Theta]0 \[Equal] \\(\\((\\(\\(Hold[\\(\\(\[Theta][0]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \
\\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)}\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656221721773`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622238181*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622303629*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656223532333`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622403069*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\) + \\(\\(k\\\\ \
\\(\\((\\(\\(\\(\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\)]\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\((\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\))\\)\\)\\)\\)}\\) is neither a list of replacement rules \
nor a valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622453899*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622534665*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622587472*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622654516*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622721726*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622770355*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622838241*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965622918795*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656229711313`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656230216637`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623071582*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656231219263`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623171816*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623223874*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623288683*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623352539*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623404945*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623471531*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623524404*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623588377*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656236409683`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\[LeftSkeleton] 1 \[RightSkeleton]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656236916533`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656237410383`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656238198757`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623870986*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623925322*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965623974647*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965624026421*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656240877237`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965624141824*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965631608234*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965631671666*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(k\\\\ \\(\\((\\(\\(Hold[\\(\\(\[Theta][t]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\), TagBox[\\((\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\))\\), Derivative], Rule[MultilineFunction, \
None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\
\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\) \[Equal] 0\\)\\), \\(\\(\
\[Theta]0 \[Equal] \\(\\((\\(\\(Hold[\\(\\(\[Theta][0]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \
\\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)}\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965631725574*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965631774559*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656318260717`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965631876185*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965631927001*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656319888678`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656320471487`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632104233*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656321588078`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632208973*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656322597313`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656323213654`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656323770943`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632430237*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632494836*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632555153*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632609826*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632660887*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632711001*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632762085*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\\(\\(k\\\\ \\(\\(\[Theta][t]\\)\\)\\)\\) + \\(\\(Cd\\\\ \
\\(\\(\\(\\*SuperscriptBox[\\(\[LeftSkeleton] 1 \[RightSkeleton]\\), \
TagBox[\\((\\(\[LeftSkeleton] 1 \[RightSkeleton]\\))\\), Derivative], \
Rule[MultilineFunction, None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)]\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ hOut\\^2\\\\ m\\\\ \
\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\\(\\(\
\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632825612*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632877853*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632929195*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965632988235*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965633045539*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(k\\\\ \\(\\((\\(\\(Hold[\\(\\(\[Theta][t]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\), TagBox[\\((\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\))\\), Derivative], Rule[MultilineFunction, \
None]]\\)\\)[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\
\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\) \[Equal] 0\\)\\), \\(\\(\
\[Theta]0 \[Equal] \\(\\((\\(\\(Hold[\\(\\(\[Theta][0]\\)\\)]\\)\\)/.\
\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \
\[Equal] \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)\\)\\), \
\\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"\[Theta]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]\\)\\)[0]\\)\\) \[Equal] 0\\)\\), \
\\(\\(\[Theta]0 \[Equal] \
\\(\\(\[Theta][0]\\)\\)\\)\\)}\\)\\)]\\)\\))\\)\\)\\)\\)}\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965633097082*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796563315476*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965633211556*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656332735157`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965633337533*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\) + \\(\\(k\\\\ \
\\(\\((\\(\\(\\(\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\)]\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\((\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\))\\)\\)\\)\\)}\\) is neither a list of replacement rules \
nor a valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965633396138*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656334458227`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965633504594*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656335712976`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.487963199617941*^9, {3.487965612699738*^9, 3.48796561618298*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656127464046`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612796768*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612846669*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612896679*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612946611*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965612996613*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656130468187`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656131001787`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656131466722`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"ivar\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(0\\) is not a valid variable. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656131967154`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656132467413`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965613297914*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656133471203`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656133977222`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965613448004*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656135012836`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965613547802*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965613597925*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561364787*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656136989183`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965613748*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965613798872*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656138486834`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656139495773`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.48796561399859*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614049242*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656140988417`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614149366*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614198818*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614249384*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614299159*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614354315*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614400146*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614449769*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(0\\)\\) \\(\\((\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(gr\\^2\\\\ \\(\\(\
\[LeftSkeleton] 3 \[RightSkeleton]\\)\\)\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\
\\(Hold[\\(\\(\[Theta][\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)]\
\\)\\)/.\[InvisibleSpace] \\(\\(Hold[\\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\)]\\)\\)\\)\\)/.\[InvisibleSpace] \
\\(\\({\\(\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] \\(\\(Plus[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\), \\(\\(\\(\\(D[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) \[Equal] 0\\)\\), \\(\\(\[Theta]0 \[Equal] \
\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)}\
\\)\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\[Theta]0 \[Equal] \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)\\)\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614501622*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\(\\(k\\\\ \[Theta]R\\)\\) \[Equal] \
\\(\\(\\(\\(Cd\\\\ \\((\\(\[PartialD]\\_\\(t\\)\\) \
\\(\\((\\(\\(ReplaceAll[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \\(\\({\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)}\\)\\))\\)\\))\\)\\^2\\)\\) + \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\) + \\(\\(k\\\\ \\(\\((\\(\\(\\(\\(\\(\\(Hold[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)/.\[InvisibleSpace] \
\\(\\(Hold[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)/.\
\[InvisibleSpace] \\(\\({\\(\\(Equal[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\
\\)\\)]\\)\\), \\(\\(Equal[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\
\\), \\(\\(Equal[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)}\\)\\)\
\\)\\)/.\[InvisibleSpace] \\(\\({\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\
\\))\\)\\)\\)\\)\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\), \
\\(\\(\[Theta]0 \[Equal] \\(\\((\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)/.\[InvisibleSpace] \\(\\({\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)}\\)\\))\\)\\)\\)\\)}\\) is neither a list of replacement \
rules nor a valid dispatch table, and so cannot be used for replacing. \\!\\(\
\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614552869*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.4879656146008797`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614650709*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614700633*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614754589*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614801125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614848578*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487963199617941*^9, 3.487965614900522*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SqrtBox["k"], " ", 
    RowBox[{"(", 
     RowBox[{"\[Theta]0", "-", "\[Theta]R"}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"gr", " ", "hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{"gr", " ", "hOut", " ", 
    SqrtBox["m"]}]]}]], "Output",
 CellChangeTimes->{
  3.487955707374448*^9, 3.487955800152092*^9, {3.48795610731842*^9, 
   3.487956128683586*^9}, 3.487956324830715*^9, {3.487957391378138*^9, 
   3.4879574250714684`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], " ", "gr", " ", 
   "hOut"}]}]], "Input",
 CellChangeTimes->{{3.487955762787274*^9, 3.487955766277123*^9}, {
  3.487957821961236*^9, 3.487957822407012*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SqrtBox["k"], " ", 
    RowBox[{"(", 
     RowBox[{"\[Theta]0", "-", "\[Theta]R"}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"gr", " ", "hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   SqrtBox["m"]]}]], "Output",
 CellChangeTimes->{
  3.487955707391452*^9, 3.487955767863152*^9, 3.487955800185087*^9, {
   3.487956107335473*^9, 3.4879561286998367`*^9}, 3.4879563248468103`*^9, {
   3.4879573914102707`*^9, 3.487957425104171*^9}, 3.48795782376339*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Import parameter values",
 StyleBox[" (instead of defining)",
  FontWeight->"Plain"]
}], "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}}],

Cell[CellGroupData[{

Cell["Set parameters", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.43385083875504*^9, 3.433850852652391*^9}, 3.4341193136118183`*^9, {
   3.434289716647056*^9, 3.434289719086936*^9}, {3.4342898896403103`*^9, 
   3.4342898900238256`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"KillMech", "[", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, 
   3.466787869116115*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "::", "\<\"shdw\"\>"}], ":", 
  " ", "\<\"Symbol \\!\\(\\\"ClearMech\\\"\\) appears in multiple contexts \
\\!\\({\\\"MechanicalSystems`Modeler2D`\\\", \\\"Global`\\\"}\\); definitions \
in context \\!\\(\\\"MechanicalSystems`Modeler2D`\\\"\\) may shadow or be \
shadowed by other definitions. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/shdw\\\", ButtonNote -> \
\\\"MechanicalSystems`Modeler2D`ClearMech::shdw\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{
  3.466786260121735*^9, 3.466787697929195*^9, 3.4668513920307207`*^9, 
   3.466851641627792*^9, 3.4668519709459333`*^9, 3.4668520796879253`*^9, 
   3.4668524501482162`*^9, 3.466852522540847*^9, 3.4668526870020742`*^9, 
   3.4668536664869013`*^9, 3.4668548201335506`*^9, 3.466854889597045*^9, 
   3.4668564625068493`*^9, 3.466952252456072*^9, 3.466957178346561*^9, 
   3.466957401548367*^9, 3.466958982376659*^9, 3.466960317468165*^9, 
   3.466960745962718*^9, 3.466961326162109*^9, 3.466962115021668*^9, 
   3.466964673604381*^9, 3.46703353712479*^9, 3.467034055594611*^9, 
   3.4670491367012653`*^9, {3.4670491899979763`*^9, 3.46704920230713*^9}, 
   3.467049492537396*^9, 3.467049616334437*^9, {3.46704965504924*^9, 
   3.467049665143108*^9}, 3.46704971567202*^9, {3.467049795705017*^9, 
   3.4670498232331667`*^9}, 3.4670498839420958`*^9, 3.4670502823679*^9, 
   3.467050612858285*^9, 3.467051565616909*^9, 3.467131106098455*^9, 
   3.467131156092662*^9, 3.467131611846434*^9, 3.467391055213336*^9, 
   3.467391864661303*^9, 3.4673920406898117`*^9, 3.467393332838293*^9, 
   3.467393368553506*^9, 3.467393887486376*^9, 3.467395314969508*^9, 
   3.467395691388833*^9, {3.467395757892342*^9, 3.467395786896797*^9}, 
   3.4673958187299757`*^9, 3.467395986228581*^9, 3.467396325544333*^9, 
   3.467396708422196*^9, 3.467397415273758*^9, 3.467397703600616*^9, 
   3.467400219678578*^9, 3.467466485277327*^9, 3.4674671213766937`*^9, 
   3.4674786016391697`*^9, 3.4674795897673903`*^9, 3.467479889238076*^9, 
   3.467480318862711*^9, 3.4674804482413797`*^9, 3.467480795343515*^9, 
   3.467480827536489*^9, 3.467482811680235*^9, 3.467482946836265*^9, 
   3.467483052984454*^9, 3.467483569241737*^9, 3.467483682784971*^9, 
   3.4675846384994783`*^9, {3.467584676118498*^9, 3.4675846985365334`*^9}, 
   3.467584729407338*^9, 3.467584806908839*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"currPath", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\</Volumes/Docs/Projects/Patek_project/pod_model/sims/curr_path.txt\>\"\
", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Text\>\"", ",", "\"\<Lines\>\""}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.466786522027617*^9, 3.4667865476764727`*^9}, {
   3.4667865802881813`*^9, 3.4667866397454853`*^9}, {3.466787041425016*^9, 
   3.466787083153205*^9}, {3.466787377043317*^9, 3.466787378881341*^9}, 
   3.466787686616806*^9}],

Cell[CellGroupData[{

Cell[BoxData["currPath"], "Input"],

Cell[BoxData[
 RowBox[{"{", "\<\"/Volumes/Docs/Projects/Patek_project/pod_model/sims/s001\"\
\>", "}"}]], "Output",
 CellChangeTimes->{
  3.467466604088314*^9, 3.46746712156464*^9, 3.467478601829484*^9, 
   3.46747958986808*^9, 3.46747988941193*^9, 3.467480319021908*^9, 
   3.467480448407652*^9, 3.467480795506249*^9, 3.467480827688716*^9, 
   3.467482811841514*^9, 3.467482947008469*^9, 3.467483053112808*^9, 
   3.4674835693658524`*^9, 3.467483682935944*^9, 3.467584638613906*^9, {
   3.467584676234571*^9, 3.4675846986501102`*^9}, 3.467584729523966*^9, 
   3.4675848070231657`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"inParams", " ", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</input_params.mat\>\""}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.466787338920322*^9, 3.466787360497628*^9}, {
   3.466787508673229*^9, 3.4667875312645597`*^9}, {3.4668513797269373`*^9, 
   3.4668513851096478`*^9}, {3.466851652365765*^9, 3.466851684576991*^9}, 
   3.466851944651925*^9, 3.466852070019998*^9, 3.466854691438105*^9, 
   3.4674829506438093`*^9, 3.46748304732108*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tEvalIn", " ", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</eval_time.mat\>\""}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.466787338920322*^9, 3.466787360497628*^9}, {
   3.466787508673229*^9, 3.4667875312645597`*^9}, {3.4668513797269373`*^9, 
   3.4668513851096478`*^9}, {3.466851652365765*^9, 3.466851684576991*^9}, 
   3.466851944651925*^9, 3.466852070019998*^9, {3.466854691438105*^9, 
   3.466854726005868*^9}, {3.467049235519855*^9, 3.467049235605685*^9}, {
   3.467049333467435*^9, 3.467049336362997*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"L1In", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L2In", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L3In", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L4In", "=", 
    RowBox[{"inParams", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXLocalIn", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "5", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EYLocalIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "6", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FXLocalIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "7", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FYLocalIn", "=", 
    RowBox[{"inParams", "[", 
     RowBox[{"[", "8", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thetaStartIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "9", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dMassIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dIIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "11", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kSpringIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "12", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"thetaRestIn", "=", 
    RowBox[{"inParams", "[", 
     RowBox[{"[", "13", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simDurationIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "14", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dAIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "15", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"rhoIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "16", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CdIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "17", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"waterIIn", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "18", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mxErrIn", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "19", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.466851671006524*^9, 3.466851805270096*^9}, {
   3.466851844224741*^9, 3.466851915651497*^9}, 3.466851983937646*^9, {
   3.46685241707987*^9, 3.466852444479657*^9}, {3.466955569694524*^9, 
   3.466955570447221*^9}, {3.46695650400705*^9, 3.466956530036388*^9}, {
   3.46703151246463*^9, 3.467031513429702*^9}, {3.46703395099435*^9, 
   3.4670339590059137`*^9}, {3.467048959682325*^9, 3.467048997011898*^9}, {
   3.467049182278183*^9, 3.4670491851737423`*^9}, {3.467049339270176*^9, 
   3.467049476837748*^9}, {3.4670499341508617`*^9, 3.467049942021761*^9}, {
   3.4673932052128773`*^9, 3.467393205757135*^9}, {3.46746551979305*^9, 
   3.467465523086985*^9}, {3.467481595515082*^9, 3.467481606889659*^9}, {
   3.467483403110375*^9, 3.4674834119367933`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "inParams", "]"}]], "Input",
 CellChangeTimes->{{3.466851932505539*^9, 3.466851955883605*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Define parameter values",
 StyleBox[" (instead of importing)",
  FontWeight->"Plain"]
}], "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788204325143*^9, 3.466788218260817*^9}, {
   3.46685802076483*^9, 3.466858020906929*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.434292099763974*^9, 3.434292258189349*^9, 3.434293180260522*^9, 
   3.434293230161066*^9, 3.434293449760765*^9, 3.434293581292253*^9, 
   3.4342937049029903`*^9, 3.434293876653063*^9, 3.434293971925701*^9, 
   3.434294057094702*^9, 3.434294130739457*^9, {3.434294412856823*^9, 
   3.434294448718937*^9}, 3.434294558977326*^9, 3.434294607499115*^9, {
   3.434294681884009*^9, 3.434294717809619*^9}, {3.4342948834967403`*^9, 
   3.4342949021944513`*^9}, 3.434294932854025*^9, 3.434295351040872*^9, {
   3.4342953977109632`*^9, 3.4342954119918947`*^9}, {3.434300115056324*^9, 
   3.434300144098928*^9}, 3.434300375330656*^9, 3.434300496321999*^9, {
   3.434300530150381*^9, 3.434300541717102*^9}, {3.434300914224938*^9, 
   3.434300937554062*^9}, 3.434301708708658*^9, 3.4353446075485983`*^9, {
   3.4353446523120213`*^9, 3.4353446737133837`*^9}, 3.435344704797965*^9, 
   3.435346202959948*^9, 3.4353462911496143`*^9, 3.4353463321031513`*^9, 
   3.435350341889319*^9, 3.4353505374019003`*^9, 3.435422262808413*^9, 
   3.435422478207158*^9, 3.4354225966852903`*^9, 3.435422789660244*^9, 
   3.4354235819962463`*^9, 3.435423723315166*^9, 3.435424026618021*^9, 
   3.435424164213517*^9, 3.4355226513599663`*^9, {3.45769091923886*^9, 
   3.457690961137004*^9}, 3.457692837245215*^9, 3.457692905117363*^9, {
   3.45771059582425*^9, 3.457710620058701*^9}, {3.466770528847291*^9, 
   3.4667705602812023`*^9}, {3.466788283866576*^9, 3.4667882895037537`*^9}, 
   3.46679342749647*^9, 3.466852058939104*^9, 3.466852723671411*^9, 
   3.4669500890982723`*^9, 3.466950786634124*^9, 3.466950973422065*^9, 
   3.466951245490233*^9, 3.4669517218990107`*^9, 3.466952279243307*^9, 
   3.4669528191898317`*^9, 3.467396124462699*^9, 3.4673961600292377`*^9, 
   3.467396258854598*^9, 3.467399136168683*^9, 3.467399372845319*^9, {
   3.467400219312449*^9, 3.467400222102971*^9}, 3.4674019609775457`*^9, 
   3.467402263528982*^9, 3.467403306340331*^9, 3.467458601887946*^9, 
   3.4674588514701433`*^9, 3.467460879037442*^9, {3.467460933195075*^9, 
   3.4674609489951773`*^9}, 3.467461014779756*^9, 3.467461157597706*^9, {
   3.467461243769641*^9, 3.4674612911579857`*^9}, 3.467461467620862*^9, 
   3.467462287185293*^9, 3.4674623309231863`*^9, 3.467462393587419*^9, 
   3.467464341607729*^9, 3.467466964511773*^9, 3.467483483405147*^9, 
   3.467483518982574*^9, 3.467577761644402*^9, 3.46757821882593*^9, 
   3.467578341056774*^9, 3.467578629155031*^9, {3.467578895837068*^9, 
   3.467578920386207*^9}, 3.4675790354336863`*^9, {3.467579265286461*^9, 
   3.467579318485227*^9}, 3.467579353062954*^9, 3.467580670556787*^9, 
   3.467581503895832*^9, 3.467581542400894*^9, 3.4675827416038647`*^9, 
   3.467583051594487*^9, 3.467583086578677*^9, 3.467583474521598*^9, 
   3.46758408073006*^9, 3.4675841453503532`*^9, 3.467584233551792*^9, 
   3.46758431862731*^9, 3.467584472094709*^9, 3.467584620465995*^9, 
   3.467631182240691*^9, 3.467631236108857*^9, 3.46763129564716*^9, 
   3.4676318105457687`*^9, 3.46763195795621*^9, 3.4676320694819736`*^9, 
   3.4676321232905807`*^9, 3.467632156714157*^9, {3.4676321986655693`*^9, 
   3.4676322280869303`*^9}, 3.467632364126687*^9, {3.467632424500801*^9, 
   3.467632473074788*^9}, 3.467632527211997*^9, 3.4676525241515427`*^9, 
   3.468589969754756*^9, 3.468590116105171*^9, 3.468593534356092*^9, 
   3.468593948999905*^9, 3.468594447396134*^9, {3.468594510398543*^9, 
   3.468594535185433*^9}, 3.468594600720318*^9, 3.468594665020973*^9, 
   3.468594718113571*^9, 3.468673729007526*^9, 3.468673781952909*^9, 
   3.468673832286858*^9, 3.468673940320219*^9, {3.468674969872644*^9, 
   3.468675010539816*^9}, 3.4686752401465483`*^9, 3.4686753103844013`*^9, 
   3.468678410652238*^9, 3.4686785334952106`*^9, 3.468678780644415*^9, 
   3.469193204677691*^9, 3.4691932456548347`*^9, 3.46919340663568*^9, 
   3.46919371641402*^9, 3.469193758023278*^9, 3.469193818176318*^9, 
   3.469193990619084*^9, 3.469479979924397*^9, 3.469480031785431*^9, 
   3.46948016012893*^9, 3.4694808340538*^9, {3.500842598049447*^9, 
   3.500842623003723*^9}, 3.500843013761495*^9, 3.50084326464993*^9, {
   3.500843465737893*^9, 3.5008434795824423`*^9}, 3.500843592234499*^9, 
   3.5008446535453577`*^9, 3.500845420942812*^9, 3.500845809218841*^9, 
   3.500846092039659*^9, 3.500846695395318*^9, 3.500846795965776*^9, 
   3.5008469389826183`*^9, 3.500847108218102*^9, 3.5008471454245768`*^9, {
   3.5008471841652727`*^9, 3.50084720973724*^9}, 3.500847323832231*^9, 
   3.500847739936367*^9, 3.5008481473073883`*^9, 3.500898459132517*^9, 
   3.500898572760056*^9, 3.5008986134800034`*^9, 3.500899065666504*^9, 
   3.500899294048471*^9, {3.500900031150363*^9, 3.5009000540443563`*^9}, {
   3.500900544312377*^9, 3.500900565631591*^9}, 3.504361807719368*^9, 
   3.504362116623878*^9, 3.5043629147952347`*^9, 3.504365450663178*^9, 
   3.5043655313304663`*^9, 3.504365707909445*^9, 3.5043659513484497`*^9, 
   3.504366016524662*^9, 3.504366257250904*^9, 3.504366417553089*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Linakage", " ", "coordinates"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"L1In", "=", 
     RowBox[{"6", " ", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L2In", "=", 
     RowBox[{"3.75", " ", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L3In", "=", 
     RowBox[{".425", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L4In", "=", 
     RowBox[{"6.7", " ", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L5In", "=", 
     RowBox[{"6.1", "*", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dacLenIn", " ", "=", " ", 
     RowBox[{"9.63", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.434131952812974*^9, 3.4341319539598846`*^9}, {
   3.43413198954797*^9, 3.43413202974548*^9}, {3.4342297466352386`*^9, 
   3.434229748346599*^9}, 3.4342299385116568`*^9, {3.43422999356122*^9, 
   3.434229997815728*^9}, {3.434230838908679*^9, 3.434230839540224*^9}, {
   3.434277961091634*^9, 3.4342779849160433`*^9}, {3.434278602189005*^9, 
   3.434278609877079*^9}, {3.434278644849573*^9, 3.4342786470550623`*^9}, {
   3.4342807676477013`*^9, 3.4342807690228157`*^9}, {3.4353436875027027`*^9, 
   3.435343730105359*^9}, {3.4353454519083652`*^9, 3.435345486942325*^9}, {
   3.435345595178643*^9, 3.435345645550807*^9}, {3.4353462806156178`*^9, 
   3.435346281926008*^9}, {3.435348619786561*^9, 3.435348636498808*^9}, {
   3.435350509780883*^9, 3.435350524237422*^9}, {3.466788606361985*^9, 
   3.466788631466886*^9}, {3.466788832491296*^9, 3.466788863193398*^9}, {
   3.466791101109333*^9, 3.4667911115178833`*^9}, {3.466791170660293*^9, 
   3.466791183121325*^9}, {3.467130370071877*^9, 3.467130386127098*^9}, {
   3.4673961066984863`*^9, 3.46739611436898*^9}, {3.467578890260561*^9, 
   3.467578917268847*^9}, {3.467579005154593*^9, 3.467579029506394*^9}, {
   3.467584436849052*^9, 3.4675844518571577`*^9}, {3.467632151951853*^9, 
   3.4676321530236473`*^9}, {3.467632194059703*^9, 3.467632194745688*^9}, {
   3.468586429730022*^9, 3.468586434726*^9}, {3.4685866526499357`*^9, 
   3.468586692489429*^9}, {3.468590160974312*^9, 3.468590166820918*^9}, {
   3.468590217463459*^9, 3.4685902292361794`*^9}, {3.468590279524365*^9, 
   3.468590281267706*^9}, {3.4686739723276978`*^9, 3.4686739918610497`*^9}, {
   3.468674031242435*^9, 3.468674046858041*^9}, {3.469193185179084*^9, 
   3.469193195279286*^9}, {3.4691934022666283`*^9, 3.4691934027379627`*^9}, {
   3.469193753966988*^9, 3.469193754452882*^9}, {3.469193808480319*^9, 
   3.46919381444841*^9}, 3.469193986555132*^9, {3.469480022552734*^9, 
   3.46948002401502*^9}, {3.469480829344017*^9, 3.469480829525551*^9}, {
   3.469483378915188*^9, 3.469483379120509*^9}, {3.500845068355907*^9, 
   3.5008450686579323`*^9}, {3.500845389876938*^9, 3.500845390435278*^9}, {
   3.5008460784572163`*^9, 3.5008460791606894`*^9}, {3.5008466885215683`*^9, 
   3.500846689113296*^9}, {3.500847685032662*^9, 3.500847706928585*^9}, {
   3.500898368231917*^9, 3.5008984180811*^9}, {3.50089844965913*^9, 
   3.500898452889846*^9}, {3.5008985611010323`*^9, 3.500898563594779*^9}, {
   3.5008992363537273`*^9, 3.500899275083214*^9}, 3.500899436896056*^9, {
   3.500900506076037*^9, 3.500900530897235*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Distance", " ", "between", " ", "points", " ", "A"}], "&"}], 
     "F"}], ",", 
    RowBox[{"determined", " ", "by", " ", "propodus", " ", "thickness"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"hAFIn", " ", "=", " ", 
    RowBox[{"1", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "3"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.468586700972331*^9, 3.468586703756074*^9}, {
  3.468594385498662*^9, 3.468594387292173*^9}, {3.468673994902513*^9, 
  3.468674015520094*^9}, {3.46948340332206*^9, 3.469483403505456*^9}, {
  3.5008986081025133`*^9, 3.5008986094124393`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Initial", " ", "input", " ", "angle", " ", 
    RowBox[{"(", "rad", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"thetaStartIn", " ", "=", " ", "1.3774"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.434132099033888*^9, 3.434132114381303*^9}, {
   3.434132186297621*^9, 3.434132213218598*^9}, 3.434132302900926*^9, {
   3.4341323400572243`*^9, 3.4341323627623262`*^9}, {3.434229607005034*^9, 
   3.434229607191564*^9}, 3.434230823973259*^9, 3.434919738274151*^9, 
   3.435343741954628*^9, {3.466956512880962*^9, 3.466956514427375*^9}, {
   3.467130412095838*^9, 3.4671304122877417`*^9}, {3.46739615348456*^9, 
   3.467396154018647*^9}, {3.467577721767685*^9, 3.4675777232203417`*^9}, {
   3.467584219833658*^9, 3.467584228677019*^9}, {3.46763117149975*^9, 
   3.467631172043331*^9}, {3.467631281979087*^9, 3.467631284105261*^9}, {
   3.46763206511285*^9, 3.467632065186788*^9}, {3.467632119449544*^9, 
   3.467632119709449*^9}, {3.468674071348559*^9, 3.468674083043585*^9}, {
   3.4686751477341547`*^9, 3.468675151671584*^9}, 3.500899045105835*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Dactyl", " ", "mass", " ", 
    RowBox[{"(", "kg", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dMassIn", " ", "=", " ", 
    RowBox[{"4.53", " ", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "4"}]]}]}], " ", ";"}]}]], "Input",
 CellChangeTimes->{{3.435348563500267*^9, 3.435348643073678*^9}, {
   3.435349863468604*^9, 3.435349869186496*^9}, 3.4353505272538023`*^9, {
   3.46678850975624*^9, 3.466788509997757*^9}, {3.467130390159021*^9, 
   3.467130390351074*^9}, {3.468673826309875*^9, 3.468673827293536*^9}, {
   3.4686740989544983`*^9, 3.4686741377175093`*^9}, {3.4686751625805807`*^9, 
   3.468675164276259*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Dactyl", " ", "I", " ", 
    RowBox[{"(", 
     RowBox[{"kg", " ", 
      RowBox[{"m", "^", "2"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"dIIn", "=", " ", 
    RowBox[{"8.16", " ", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "8"}]]}]}], " ", ";"}]}]], "Input",
 CellChangeTimes->{{3.468674148672564*^9, 3.4686741633194447`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Water", " ", "I", " ", 
    RowBox[{"(", 
     RowBox[{"kg", " ", 
      RowBox[{"m", "^", "2"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"waterIIn", " ", "=", " ", 
    RowBox[{"1", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "8"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4686742046361647`*^9, 3.468674205714077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "3", "rd", " ", "moment", " ", "of", " ", "area", " ", "of", " ", 
    "dactyl"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dAIn", "=", 
    RowBox[{"1.5", " ", "*", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "11"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.468674301823062*^9, 3.468674326575848*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Drag", " ", "coefficient", " ", "of", " ", "elliptical", " ", "dactyl", 
    " ", "element"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DIn", " ", "=", " ", "0.07"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4686743432308683`*^9, 3.468674356878983*^9}, {
  3.5008430051810713`*^9, 3.500843007074793*^9}, {3.500843250503992*^9, 
  3.5008432549117947`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Torsion", " ", "spring", " ", "at", " ", "mV", " ", "joint", " ", 
    RowBox[{"(", 
     RowBox[{"Nm", "/", "rad"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"kSpringIn", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"60", "*", 
       SuperscriptBox["10", "3"]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3.18", " ", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "3"}]]}], ")"}], "2"]}]}], ";"}], "   "}]], "Input",
 CellChangeTimes->{{3.435421522909107*^9, 3.435421681632819*^9}, {
   3.435421758548747*^9, 3.435421793158945*^9}, {3.435422909563066*^9, 
   3.435422910489184*^9}, {3.4354237074614563`*^9, 3.435423708643484*^9}, 
   3.43542402289395*^9, {3.457709051983925*^9, 3.457709052382986*^9}, {
   3.457709117115046*^9, 3.457709178213849*^9}, {3.457710963647984*^9, 
   3.457710989087376*^9}, {3.4577135575862713`*^9, 3.457713568936726*^9}, {
   3.46678866595774*^9, 3.466788673790572*^9}, {3.4667934847400103`*^9, 
   3.466793485978364*^9}, {3.466948633358838*^9, 3.4669486781095123`*^9}, {
   3.466948716511673*^9, 3.466948718263906*^9}, {3.466948790943235*^9, 
   3.4669488194768553`*^9}, {3.466949090885058*^9, 3.466949139925864*^9}, {
   3.466949577733061*^9, 3.4669496132162867`*^9}, {3.467130397063768*^9, 
   3.4671303972794657`*^9}, {3.467462277723576*^9, 3.467462277897575*^9}, {
   3.467462324798222*^9, 3.4674623258280993`*^9}, {3.468674233157434*^9, 
   3.468674247404613*^9}, {3.468675208631422*^9, 3.468675208990657*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Resting", " ", "position", " ", "for", " ", "torsion", " ", "spring"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"thetaRestIn", " ", "=", " ", "1.6088"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gammaIn", " ", "=", " ", 
     RowBox[{"60", "*", 
      RowBox[{"Pi", "/", "180"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466949145141657*^9, 3.4669491455500097`*^9}, {
   3.4669493742501907`*^9, 3.4669493755481462`*^9}, {3.4669496328174458`*^9, 
   3.466949633848442*^9}, {3.46713040157541*^9, 3.467130401767189*^9}, {
   3.467399089118825*^9, 3.467399131119433*^9}, {3.467577738985156*^9, 
   3.467577741013298*^9}, {3.467584216818562*^9, 3.4675842173325377`*^9}, {
   3.46763116302157*^9, 3.4676311636108*^9}, {3.467631288225885*^9, 
   3.467631290913639*^9}, {3.4676323531769648`*^9, 3.467632356570039*^9}, {
   3.467632420438284*^9, 3.467632421141477*^9}, {3.467632522800304*^9, 
   3.467632523242826*^9}, {3.468674260198893*^9, 3.468674264428842*^9}, {
   3.4686752177594767`*^9, 3.468675218142934*^9}, {3.500847055065948*^9, 
   3.500847102473544*^9}, {3.5008471407869787`*^9, 3.5008471410872393`*^9}, 
   3.5008990619145823`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Density", " ", "of", " ", "water", " ", 
    RowBox[{"(", 
     RowBox[{"kg", "/", 
      RowBox[{"m", "^", "3"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"rhoIn", "=", "998"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4686743713237143`*^9, 3.4686743793777103`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Duration", " ", "of", " ", "simulation", " ", 
    RowBox[{"(", "s", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"simDurationIn", " ", "=", " ", 
    RowBox[{"6", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "3"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{
  3.434278736905219*^9, {3.4342808353390703`*^9, 3.434280835730028*^9}, {
   3.434289475627427*^9, 3.43428947591481*^9}, 3.4667935235240583`*^9, {
   3.4669518092090197`*^9, 3.466951811730987*^9}, {3.467130406575465*^9, 
   3.4671304067993517`*^9}, 3.467402258950944*^9, {3.467458847776284*^9, 
   3.4674588482823973`*^9}, 3.4674622822020283`*^9, {3.46763246881883*^9, 
   3.467632470000023*^9}, {3.4686737724945927`*^9, 3.468673773690694*^9}, {
   3.468674390623344*^9, 3.4686743950998077`*^9}, 3.468678406891727*^9, {
   3.504366412366899*^9, 3.504366412749837*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Time", " ", "values", " ", "to", " ", "evaluate", " ", "results"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tEvalIn", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"N", "[", "i", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0", ",", "simDurationIn", ",", 
        RowBox[{"simDurationIn", "/", "1000"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.4686744938970957`*^9, 3.4686745012327137`*^9}, {
  3.468674867340357*^9, 3.468675005436164*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Precision", " ", "of", " ", "simulation"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mxErrIn", " ", "=", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "5"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.46748345560592*^9, 3.467483461807788*^9}, {
  3.467579445014997*^9, 3.4675794467636137`*^9}, {3.468674466720475*^9, 
  3.468674470959567*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Designate", " ", "current", " ", "path"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "currPath", "=", "\"\</Volumes/Docs/Projects/Patek_project/sims\>\""}], 
   ";"}]}]], "Input",
 CellChangeTimes->{
  3.468678527203834*^9, {3.468679767114295*^9, 3.4686797759099903`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Phenomeological model ", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.4694519119965553`*^9, 3.4694519177614813`*^9}}],

Cell[CellGroupData[{

Cell["Rescale input parameter values", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.43385083875504*^9, 3.433850852652391*^9}, 3.4341193136118183`*^9, {
   3.434289716647056*^9, 3.434289719086936*^9}, {3.4342898896403103`*^9, 
   3.4342898900238256`*^9}, {3.4667883845028353`*^9, 3.46678839415761*^9}, {
   3.466852557980702*^9, 3.466852559722931*^9}, 3.4670497355918503`*^9}],

Cell["\<\

Scale Factors (Mutliplers of all parameters -- helps with numerical \
instabilities)\
\>", "Text",
 CellChangeTimes->{{3.434278553534718*^9, 3.4342785793708*^9}, {
   3.4342807410458403`*^9, 3.434280755892982*^9}, {3.434289846695445*^9, 
   3.434289847157864*^9}, 3.457691189581398*^9, 3.4667884055742598`*^9, 
   3.467049735592021*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"sL", " ", "=", " ", 
   RowBox[{"1", " ", "/", " ", "L1In"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sM", " ", "=", " ", 
   RowBox[{"1", "/", "dMassIn"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sT", "=", 
   RowBox[{"10", "^", "3"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.434278831626719*^9, 3.434278834360395*^9}, {
   3.434280636655451*^9, 3.434280691266487*^9}, {3.4353456546709423`*^9, 
   3.435345658679894*^9}, {3.435348652731892*^9, 3.435348661850851*^9}, 
   3.4353500119228563`*^9, 3.4353504641944847`*^9, {3.4353505032137747`*^9, 
   3.435350506412731*^9}, {3.4669567739730873`*^9, 3.4669567806655207`*^9}, {
   3.467049697295474*^9, 3.467049699333912*^9}, 3.467049735592348*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Apply", " ", "scale", " ", "factors", " ", "to", " ", "parameters"}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dMass", " ", "=", " ", 
     RowBox[{"dMassIn", " ", "sM"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dI", "=", " ", 
     RowBox[{"dIIn", " ", "sM", " ", 
      SuperscriptBox["sL", "2"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"waterI", "=", 
     RowBox[{"waterIIn", " ", "sM", " ", 
      SuperscriptBox["sL", "2"]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L1", "=", 
     RowBox[{"L1In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L2", "=", 
     RowBox[{"L2In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L3", "=", 
     RowBox[{"L3In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L4", "=", 
     RowBox[{"L4In", "  ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L5", "=", 
     RowBox[{"L5In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dacLen", " ", "=", " ", 
     RowBox[{"dacLenIn", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"EXLocal", " ", "=", " ", 
      RowBox[{"EXLocalIn", " ", "sL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"EYLocal", " ", "=", " ", 
      RowBox[{"EYLocalIn", " ", "sL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"FXLocal", " ", "=", " ", 
      RowBox[{"FXLocalIn", " ", "sL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"FYLocal", " ", "=", " ", 
      RowBox[{"FYLocalIn", " ", "sL"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hAF", " ", "=", " ", 
     RowBox[{"hAFIn", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"thetaStart", "    ", "=", " ", "thetaStartIn"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "gammaIn"}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kSpring", " ", "=", " ", 
     RowBox[{"kSpringIn", " ", 
      RowBox[{"(", 
       RowBox[{"sM", " ", 
        RowBox[{
         SuperscriptBox["sL", "2"], "/", 
         SuperscriptBox["sT", "2"]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"thetaRest", "=", " ", "thetaRestIn"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dA", " ", "=", " ", 
     RowBox[{"dAIn", " ", "*", " ", 
      RowBox[{"sL", "^", "5"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", " ", "=", " ", 
     RowBox[{"rhoIn", " ", "*", " ", 
      RowBox[{"sM", " ", "/", " ", 
       RowBox[{"sL", "^", "3"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DrgIdx", " ", "=", 
     RowBox[{"0", "*", " ", "DIn"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"simDuration", " ", "=", " ", 
     RowBox[{"simDurationIn", " ", "*", " ", "sT"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tEval", " ", "=", " ", 
     RowBox[{"tEvalIn", "*", "sT"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mxErr", " ", "=", " ", "mxErrIn"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.4670495583114843`*^9, 3.467049609075879*^9}, 
   3.467049735594356*^9, {3.4670498579090014`*^9, 3.467049865634387*^9}, {
   3.4670499165895853`*^9, 3.4670499195636177`*^9}, {3.467050086166402*^9, 
   3.467050117493638*^9}, 3.4670507146310577`*^9, {3.467130442667438*^9, 
   3.467130445851193*^9}, {3.4673933536736183`*^9, 3.467393360529723*^9}, {
   3.467399143939653*^9, 3.467399157786333*^9}, {3.467481665208529*^9, 
   3.4674816834043303`*^9}, {3.4674834184894657`*^9, 
   3.4674834267619677`*^9}, {3.468586509164469*^9, 3.468586540172923*^9}, {
   3.4685866411148157`*^9, 3.4685866487708807`*^9}, {3.468590237812393*^9, 
   3.468590275757505*^9}, {3.468594396064682*^9, 3.468594403354549*^9}, {
   3.468594530913171*^9, 3.4685945311598*^9}, {3.5008432275762997`*^9, 
   3.500843231335525*^9}, {3.5008435490744257`*^9, 3.500843572660256*^9}, {
   3.500846644624708*^9, 3.5008466451371403`*^9}, {3.500847033821561*^9, 
   3.5008470406050873`*^9}, {3.500847722259383*^9, 3.500847730859116*^9}, {
   3.504365445662508*^9, 3.504365446050582*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "dMassIn", ",", " ", "dIIn", ",", "L1In", ",", "L2In", ",", "L3In", ",", 
   "L4In", ",", "L5In", ",", "kSpringIn", ",", "TmaxIn", ",", "hAFIn", ",", 
   "thetaIn", ",", "simDurationIn", ",", "tEvalIn", ",", "simDurationIn", ",",
    "tEvalIn", ",", "dAIn", ",", "rhoIn", ",", "CdIn", ",", "waterIIn", ",", 
   "mxErrIn", ",", "LCOMIn"}], "]"}]], "Input",
 CellChangeTimes->{{3.467049121182454*^9, 3.467049131783877*^9}, {
   3.467049973253627*^9, 3.467050068750349*^9}, {3.467481659360477*^9, 
   3.4674816610682373`*^9}, {3.467483430609823*^9, 3.467483433076861*^9}, {
   3.4685865623424673`*^9, 3.468586565877699*^9}, {3.46858671298949*^9, 
   3.4685867144294357`*^9}, {3.4685902518345633`*^9, 3.4685902522023697`*^9}, 
   3.468590286595933*^9, 3.468594415449452*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculated parameter values, define model inputs", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.43385083875504*^9, 3.433850852652391*^9}, 3.4341193136118183`*^9, {
   3.434289716647056*^9, 3.434289719086936*^9}, {3.4342898896403103`*^9, 
   3.4342898900238256`*^9}, {3.4667883845028353`*^9, 3.46678839415761*^9}, {
   3.4667936197548323`*^9, 3.4667936216722717`*^9}, {3.466852649426639*^9, 
   3.4668526558238287`*^9}}],

Cell["\<\


Angle, \[Psi], btwn L1 & L4:\
\>", "Text",
 CellChangeTimes->{{3.434198202631575*^9, 3.434198237802174*^9}, 
   3.434278669799803*^9, 3.457691362917074*^9, {3.466788478343733*^9, 
   3.466788480857099*^9}, {3.466957297470271*^9, 3.466957324624214*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Distance", " ", "btwn", " ", "B"}], " ", "&"}], " ", "D"}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"hBD", "=", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["L1", "2"], "+", 
       SuperscriptBox["L2", "2"], "-", 
       RowBox[{"2", " ", "L1", " ", "L2", " ", 
        RowBox[{"Cos", "[", "thetaStart", "]"}]}]}]]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"This", " ", "angle", " ", "btwn", " ", "1"}], " ", "&"}], " ", 
     "4"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"si", "=", 
     RowBox[{
      RowBox[{"ArcCos", "[", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hBD", "2"], "+", 
         SuperscriptBox["L1", "2"], "-", 
         SuperscriptBox["L2", "2"]}], 
        RowBox[{"2", " ", "hBD", " ", "L1"}]], "]"}], "+", 
      RowBox[{"ArcCos", "[", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hBD", "2"], "+", 
         SuperscriptBox["L4", "2"], "-", 
         SuperscriptBox["L3", "2"]}], 
        RowBox[{"2", " ", "hBD", " ", "L4"}]], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Distance", " ", "btwn", " ", "B"}], " ", "&"}], " ", 
     RowBox[{"F", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hBF", "=", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["hAF", "2"], "+", 
       SuperscriptBox["L2", "2"], "+", 
       RowBox[{"2", " ", "hAF", " ", "L2", " ", 
        RowBox[{"Cos", "[", "thetaStart", "]"}]}]}]]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.43420369480468*^9, 3.434203720229204*^9}, {
   3.434205295144374*^9, 3.4342053038649054`*^9}, {3.434222063540146*^9, 
   3.434222063915731*^9}, 3.434222165625268*^9, {3.434222225671216*^9, 
   3.4342222375664787`*^9}, {3.4342297078595753`*^9, 3.434229736236053*^9}, {
   3.434275236341853*^9, 3.4342752973518972`*^9}, {3.434300412137216*^9, 
   3.434300447825417*^9}, {3.434300526783824*^9, 3.4343005391283712`*^9}, {
   3.466957159864493*^9, 3.466957160599237*^9}, {3.466957265309654*^9, 
   3.466957266638319*^9}, {3.466957339018674*^9, 3.466957371794042*^9}, {
   3.466957410268568*^9, 3.4669574108085823`*^9}, {3.4675783910520573`*^9, 
   3.467578435507431*^9}, {3.467578707379209*^9, 3.467578719578443*^9}, {
   3.467579115184594*^9, 3.467579152342656*^9}, {3.467579189605255*^9, 
   3.4675791933236103`*^9}, {3.4675792462798653`*^9, 3.467579260527438*^9}, {
   3.468589296766938*^9, 3.468589297283915*^9}, {3.468589491920698*^9, 
   3.468589502246148*^9}, {3.468589532325214*^9, 3.4685896497091637`*^9}, {
   3.4685896907975388`*^9, 3.4685898980494967`*^9}, {3.4685938384776506`*^9, 
   3.468593842811696*^9}, 3.468594332974505*^9, {3.468594431704507*^9, 
   3.468594436925262*^9}, {3.468594702678475*^9, 3.468594703195285*^9}, {
   3.500847025823085*^9, 3.500847026437092*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArcCos", "[", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hBD", "2"], "+", 
    SuperscriptBox["L4", "2"], "-", 
    SuperscriptBox["L3", "2"]}], 
   RowBox[{"2", " ", "hBD", " ", "L4"}]], "]"}]], "Input",
 CellChangeTimes->{{3.500898725376911*^9, 3.500898819115552*^9}}],

Cell[BoxData["0.05064988176669941`"], "Output",
 CellChangeTimes->{{3.5008987493526*^9, 3.500898819617215*^9}, 
   3.5008990751727037`*^9, 3.500899305509448*^9, {3.500900040705276*^9, 
   3.500900061396491*^9}, {3.500900553287404*^9, 3.500900566405561*^9}, 
   3.504361816134704*^9, 3.504362130119258*^9, 3.504362919174116*^9, 
   3.504365453853734*^9, 3.5043655320063753`*^9, 3.504365708710808*^9, 
   3.504365954735821*^9, 3.50436601831917*^9, 3.50436628076095*^9, 
   3.504366420703374*^9}]
}, Open  ]],

Cell["\<\


Check that the geometry is possible (both should be 'True')\
\>", "Text",
 CellChangeTimes->{{3.435345319126864*^9, 3.435345337355918*^9}, {
   3.4354218154711027`*^9, 3.435421833967695*^9}, 3.457691365613482*^9, {
   3.467631702552298*^9, 3.4676317100713663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L4", "  ", "<", " ", 
  RowBox[{"(", " ", 
   RowBox[{"L3", " ", "+", " ", "hBD"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.434918943225819*^9, 3.434918957311892*^9}, {
  3.4669573755071917`*^9, 3.466957376321549*^9}, {3.4673955830212297`*^9, 
  3.4673955835165787`*^9}, {3.467578734342785*^9, 3.4675787346978397`*^9}, {
  3.467579300679248*^9, 3.467579301095957*^9}, {3.468589301204135*^9, 
  3.468589301412244*^9}, {3.468594476904706*^9, 3.468594485003223*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.43436499882364*^9, 3.434365006910418*^9}, 
   3.4343656864389677`*^9, {3.434917731712736*^9, 3.43491774827241*^9}, 
   3.434919020182146*^9, 3.435344607873657*^9, {3.435344652498269*^9, 
   3.435344673898366*^9}, 3.4353447049778643`*^9, 3.4353462030958853`*^9, 
   3.435346291321949*^9, 3.435346332222268*^9, 3.435350342072789*^9, 
   3.4353505377176933`*^9, 3.435422263158986*^9, 3.435422478368538*^9, 
   3.435422596897347*^9, 3.435422789921236*^9, 3.435423582216003*^9, 
   3.435423723551297*^9, 3.435424026836322*^9, 3.4354241643991117`*^9, {
   3.457690919538722*^9, 3.4576909613918133`*^9}, 3.457692837565652*^9, 
   3.457692905371648*^9, {3.457710596042221*^9, 3.45771062047523*^9}, 
   3.4667705605677767`*^9, 3.46679344159968*^9, 3.466852029042953*^9, 
   3.4668520592886047`*^9, 3.466852541236817*^9, {3.4668526963493147`*^9, 
   3.4668527240226107`*^9}, 3.4668528720973063`*^9, {3.4668536534963293`*^9, 
   3.466853666807694*^9}, 3.46685488998621*^9, 3.4668564627849693`*^9, 
   3.4669501368599157`*^9, 3.466950792296424*^9, 3.466950976491826*^9, 
   3.466951252417783*^9, 3.46695172755998*^9, 3.4669522823891077`*^9, 
   3.466952824533963*^9, {3.466957212990509*^9, 3.466957245592959*^9}, {
   3.466957310457139*^9, 3.466957332128724*^9}, {3.466957404528062*^9, 
   3.4669574464941874`*^9}, 3.4669589860043697`*^9, 3.466960317809799*^9, 
   3.466960748681705*^9, 3.466961326443616*^9, 3.4669622804089413`*^9, 
   3.466964689797086*^9, 3.467033542891551*^9, 3.467034058433797*^9, 
   3.467049141486125*^9, 3.46704982357682*^9, {3.467049875394553*^9, 
   3.467049884336915*^9}, 3.467050282700157*^9, 3.4670506132917852`*^9, 
   3.467051566076068*^9, 3.467131109782077*^9, 3.467131156354682*^9, 
   3.467131612165155*^9, 3.467391032244094*^9, 3.46739106324406*^9, {
   3.467391856375162*^9, 3.467391865164885*^9}, 3.467392041111411*^9, {
   3.467393324240198*^9, 3.46739333334988*^9}, 3.4673933689943733`*^9, 
   3.467393888003025*^9, 3.467395361673567*^9, 3.467395569784154*^9, 
   3.467395697090407*^9, {3.467395763117218*^9, 3.4673958191409693`*^9}, 
   3.467395991917307*^9, 3.467396042266535*^9, 3.467396132900816*^9, 
   3.467396171732626*^9, 3.4673963302127647`*^9, 3.4673967088077106`*^9, 
   3.4673974156762657`*^9, 3.467397739114256*^9, 3.4673991853944473`*^9, 
   3.467399375433886*^9, {3.4674002199525127`*^9, 3.46740022446728*^9}, 
   3.467401963823043*^9, 3.467402268548736*^9, 3.4674033100446463`*^9, 
   3.467458605932939*^9, 3.467458854539589*^9, 3.4674608793673573`*^9, {
   3.4674609335490294`*^9, 3.467460949308547*^9}, 3.4674610151161213`*^9, 
   3.4674611579347277`*^9, {3.467461244086053*^9, 3.467461291491602*^9}, 
   3.46746146794193*^9, 3.467462287637662*^9, 3.467462331358157*^9, 
   3.467462394058701*^9, 3.4674643420878773`*^9, 3.467467136415283*^9, 
   3.467478604832447*^9, 3.467479590065427*^9, 3.467479898685396*^9, 
   3.467480319234045*^9, 3.4674804486081343`*^9, 3.467480795728363*^9, 
   3.4674808278907146`*^9, 3.467482812149384*^9, 3.4674830562820663`*^9, 
   3.4674834869257517`*^9, 3.467483522525936*^9, 3.467483569594591*^9, 
   3.467483688642465*^9, 3.4675782319113827`*^9, {3.4675787471241083`*^9, 
   3.467578763961439*^9}, {3.467578904034245*^9, 3.4675789296454372`*^9}, 
   3.467579054625388*^9, 3.467579204592857*^9, {3.46757926763457*^9, 
   3.467579321042944*^9}, 3.467579360685351*^9, 3.467580672528865*^9, 
   3.4675815072085114`*^9, 3.467581545485406*^9, 3.4675827440058527`*^9, 
   3.467583054128806*^9, 3.4675830895435762`*^9, 3.467583477918787*^9, 
   3.4675840827647963`*^9, 3.467584147742991*^9, 3.467584250745138*^9, 
   3.467584321078854*^9, 3.467584475548338*^9, {3.46758461061143*^9, 
   3.467584638815509*^9}, {3.46758467641334*^9, 3.46758469883134*^9}, 
   3.4675847297070837`*^9, 3.4675848072040854`*^9, 3.46763120457373*^9, 
   3.467631243209166*^9, 3.467631307082343*^9, 3.467631979741646*^9, 
   3.467632080022991*^9, 3.467632131278769*^9, 3.467632166395097*^9, {
   3.467632207179284*^9, 3.467632231319063*^9}, 3.4676323667123957`*^9, {
   3.467632432399473*^9, 3.467632475191167*^9}, 3.46763253166722*^9, 
   3.4676525275569468`*^9, 3.468589980280514*^9, 3.468590011237417*^9, 
   3.4685901205626802`*^9, 3.4685935401959667`*^9, 3.468593953520694*^9, 
   3.468594450482069*^9, {3.468594495018952*^9, 3.468594538518074*^9}, 
   3.468594638880396*^9, 3.468594669680963*^9, 3.468594718551628*^9, 
   3.468673736917605*^9, 3.4686738002691107`*^9, 3.4686738355819883`*^9, 
   3.468673954397129*^9, 3.46867531252141*^9, 3.46867841418762*^9, 
   3.468678536205386*^9, {3.468678764698556*^9, 3.468678781296482*^9}, {
   3.46919322619814*^9, 3.469193246245859*^9}, 3.469193410943076*^9, 
   3.469193719014888*^9, 3.469193762284595*^9, 3.469193822700441*^9, 
   3.4691939977792664`*^9, 3.469479980419731*^9, 3.4694800396940193`*^9, {
   3.500842608949067*^9, 3.500842625658496*^9}, 3.500843036542533*^9, 
   3.500843275523069*^9, 3.5008434845124474`*^9, 3.5008435986063023`*^9, {
   3.500844642802987*^9, 3.500844660310318*^9}, 3.500845428108842*^9, 
   3.500845809696706*^9, 3.50084610032246*^9, {3.50084670630486*^9, 
   3.50084675217704*^9}, 3.5008469640928917`*^9, {3.500847132027218*^9, 
   3.500847149597897*^9}, 3.500847184860811*^9, 3.500847218406171*^9, 
   3.5008473287235317`*^9, 3.500847740544235*^9, 3.500848147957226*^9, 
   3.500898462979309*^9, 3.500898576538698*^9, 3.5008986228220253`*^9, 
   3.500899075220726*^9, 3.5008993055430193`*^9, {3.500900040773637*^9, 
   3.5009000614418716`*^9}, {3.500900553337202*^9, 3.500900566472398*^9}, 
   3.504361816206427*^9, 3.5043621301894627`*^9, 3.5043629192299833`*^9, 
   3.50436545395804*^9, 3.504365532061808*^9, 3.5043657087746067`*^9, 
   3.504365954784561*^9, 3.504366018388804*^9, 3.504366280804504*^9, 
   3.504366420749445*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L4", "  ", ">", " ", 
  RowBox[{"(", "  ", 
   RowBox[{"hBD", "-", "L3"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.434918943225819*^9, 3.434918957311892*^9}, {
  3.4353437817588797`*^9, 3.435343791732926*^9}, {3.466957380189508*^9, 
  3.466957383091797*^9}, {3.467395589766502*^9, 3.467395591477057*^9}, {
  3.467578739463749*^9, 3.467578739858128*^9}, {3.4675793061464367`*^9, 
  3.467579306296089*^9}, {3.468589311655446*^9, 3.468589311975094*^9}, {
  3.4685944739627333`*^9, 3.468594490419304*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.43436499882364*^9, 3.434365006910418*^9}, 
   3.4343656864389677`*^9, {3.434917731712736*^9, 3.43491774827241*^9}, 
   3.434919020182146*^9, 3.435344607912539*^9, {3.435344652548286*^9, 
   3.435344673932143*^9}, 3.435344705009965*^9, 3.435346203131366*^9, 
   3.435346291355476*^9, 3.435346332255495*^9, 3.4353503421083612`*^9, 
   3.435350537753788*^9, 3.435422263193898*^9, 3.4354224784502907`*^9, 
   3.435422596935905*^9, 3.435422789961115*^9, 3.435423582268111*^9, 
   3.435423723603568*^9, 3.4354240268703957`*^9, 3.435424164435267*^9, {
   3.457690919575389*^9, 3.4576909614117403`*^9}, 3.457692837603113*^9, 
   3.4576929054241343`*^9, {3.45771059610957*^9, 3.457710620538114*^9}, 
   3.466770560621063*^9, 3.466793441676675*^9, 3.466852029101055*^9, 
   3.466852059328837*^9, 3.4668525412910833`*^9, {3.466852696385818*^9, 
   3.466852724062104*^9}, 3.466852872135377*^9, {3.466853653548448*^9, 
   3.4668536668718777`*^9}, 3.4668548900213346`*^9, 3.4668564628242493`*^9, 
   3.466950136896248*^9, 3.466950792354999*^9, 3.466950976567163*^9, 
   3.4669512524688473`*^9, 3.4669517276136007`*^9, 3.4669522824488077`*^9, 
   3.4669528245704527`*^9, {3.466957213048108*^9, 3.4669572456336412`*^9}, {
   3.46695731051976*^9, 3.466957332170837*^9}, {3.466957404625231*^9, 
   3.466957446534871*^9}, 3.466958986039297*^9, 3.4669603178627777`*^9, 
   3.466960748734394*^9, 3.466961326496256*^9, 3.4669622804530067`*^9, 
   3.4669646898491173`*^9, 3.467033542942272*^9, 3.467034058489705*^9, 
   3.467049141525887*^9, 3.467049823604065*^9, {3.467049875488022*^9, 
   3.467049884378408*^9}, 3.467050282728333*^9, 3.467050613331285*^9, 
   3.467051566181061*^9, 3.467131109832858*^9, 3.467131156405013*^9, 
   3.467131612198916*^9, 3.467391032311798*^9, 3.467391063332727*^9, {
   3.467391856427256*^9, 3.46739186520074*^9}, 3.467392041163167*^9, {
   3.467393324294541*^9, 3.467393333384224*^9}, 3.46739336904652*^9, 
   3.467393888060699*^9, 3.467395361715199*^9, 3.467395569819478*^9, 
   3.4673956971280413`*^9, {3.467395763165778*^9, 3.467395819191304*^9}, 
   3.467395991951642*^9, 3.467396042460122*^9, 3.4673961329630013`*^9, 
   3.467396171796015*^9, 3.467396330247623*^9, 3.467396708844417*^9, 
   3.467397415730071*^9, 3.467397739168954*^9, 3.4673991854663553`*^9, 
   3.4673993754698067`*^9, {3.4674002200025673`*^9, 3.467400224506056*^9}, 
   3.46740196388371*^9, 3.467402268598689*^9, 3.467403310111277*^9, 
   3.467458605967896*^9, 3.467458854588785*^9, 3.467460879407036*^9, {
   3.467460933617806*^9, 3.4674609493485727`*^9}, 3.467461015173009*^9, 
   3.46746115798699*^9, {3.467461244125105*^9, 3.467461291548161*^9}, 
   3.467461467994526*^9, 3.467462287689684*^9, 3.467462331408853*^9, 
   3.4674623941284847`*^9, 3.467464342145419*^9, 3.467467136472199*^9, 
   3.467478604884533*^9, 3.467479590116414*^9, 3.4674798987390957`*^9, 
   3.467480319287772*^9, 3.4674804486757593`*^9, 3.467480795782069*^9, 
   3.4674808279416122`*^9, 3.467482812183901*^9, 3.467483056327469*^9, 
   3.467483486958685*^9, 3.467483522555125*^9, 3.467483569643675*^9, 
   3.4674836886956863`*^9, 3.4675782319448338`*^9, {3.467578747186699*^9, 
   3.467578764001397*^9}, {3.467578904070384*^9, 3.467578929688506*^9}, 
   3.467579054658823*^9, 3.467579204649293*^9, {3.4675792676681128`*^9, 
   3.46757932109597*^9}, 3.4675793607288322`*^9, 3.4675806725656137`*^9, 
   3.467581507256507*^9, 3.467581545538447*^9, 3.4675827440566807`*^9, 
   3.46758305415417*^9, 3.467583089571413*^9, 3.4675834779733267`*^9, 
   3.467584082807542*^9, 3.467584147786345*^9, 3.467584250796899*^9, 
   3.4675843211217327`*^9, 3.467584475598208*^9, {3.4675846106621323`*^9, 
   3.467584638867379*^9}, {3.467584676464566*^9, 3.46758469888269*^9}, 
   3.4675847297585287`*^9, 3.4675848072559147`*^9, 3.4676312046495657`*^9, 
   3.467631243272771*^9, 3.46763130712949*^9, 3.467631979816134*^9, 
   3.467632080199888*^9, 3.467632131442144*^9, 3.46763216653067*^9, {
   3.467632207382395*^9, 3.467632231458531*^9}, 3.467632366870163*^9, {
   3.4676324325749903`*^9, 3.467632475393815*^9}, 3.467632531850767*^9, 
   3.467652527736971*^9, 3.4685899803146563`*^9, 3.4685900112729597`*^9, 
   3.468590120642202*^9, 3.4685935402457314`*^9, 3.4685939536205397`*^9, 
   3.4685944505291243`*^9, {3.468594493001998*^9, 3.468594538555558*^9}, 
   3.468594638909881*^9, 3.46859466971457*^9, 3.468594718588338*^9, 
   3.468673737002618*^9, 3.468673800316731*^9, 3.468673835634647*^9, 
   3.4686739544502897`*^9, 3.468675312574876*^9, 3.468678414229805*^9, 
   3.468678536247362*^9, {3.4686787647576303`*^9, 3.4686787813486834`*^9}, {
   3.469193226238183*^9, 3.469193246328601*^9}, 3.469193410994547*^9, 
   3.4691937190570803`*^9, 3.469193762322812*^9, 3.4691938227863903`*^9, 
   3.469193997817919*^9, 3.469479980471925*^9, 3.469480039738036*^9, {
   3.500842609006687*^9, 3.500842625710059*^9}, 3.500843036595612*^9, 
   3.500843275567582*^9, 3.5008434845668373`*^9, 3.5008435986428328`*^9, {
   3.500844642855624*^9, 3.500844660361957*^9}, 3.500845428144767*^9, 
   3.5008458097477283`*^9, 3.5008461003965473`*^9, {3.500846706368516*^9, 
   3.5008467522664137`*^9}, 3.5008469641903763`*^9, {3.50084713210071*^9, 
   3.500847149657195*^9}, 3.50084718490757*^9, 3.500847218469122*^9, 
   3.500847328786087*^9, 3.500847740590501*^9, 3.5008481480185204`*^9, 
   3.500898463023053*^9, 3.500898576596015*^9, 3.500898622865493*^9, 
   3.500899075271041*^9, 3.500899305604753*^9, {3.5009000409218884`*^9, 
   3.500900061507595*^9}, {3.5009005533708067`*^9, 3.500900566513214*^9}, 
   3.504361816256586*^9, 3.504362130257125*^9, 3.504362919313797*^9, 
   3.504365454038993*^9, 3.50436553212538*^9, 3.504365708824202*^9, 
   3.504365954834614*^9, 3.5043660184641314`*^9, 3.504366280842408*^9, 
   3.50436642083668*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L4", "/", "sL"}]], "Input",
 CellChangeTimes->{{3.500899325483828*^9, 3.500899333462721*^9}, {
  3.500899368958078*^9, 3.500899386508099*^9}, {3.5009004335299997`*^9, 
  3.500900442924328*^9}, {3.500900477983131*^9, 3.5009004800241623`*^9}}],

Cell[BoxData["0.0067`"], "Output",
 CellChangeTimes->{
  3.500899334081317*^9, {3.500899372628216*^9, 3.500899387068565*^9}, {
   3.500900040993441*^9, 3.500900061575583*^9}, 3.500900443715111*^9, 
   3.5009004807637243`*^9, {3.500900553428259*^9, 3.5009005665725117`*^9}, 
   3.504361816323172*^9, 3.50436213032372*^9, 3.5043629193970823`*^9, 
   3.504365454120164*^9, 3.504365532192148*^9, 3.504365708873619*^9, 
   3.5043659548844223`*^9, 3.504366018521091*^9, 3.5043662808947783`*^9, 
   3.504366420883239*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox["L1", "2"], "+", 
  SuperscriptBox["L2", "2"], "-", 
  RowBox[{"2", " ", "L1", " ", "L2", " ", 
   RowBox[{"Cos", "[", "thetaStart", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.500899407164522*^9, 3.500899409110345*^9}, {
   3.5008999308100643`*^9, 3.500899998817543*^9}, {3.50090008068622*^9, 
   3.5009001041227093`*^9}, 3.500900245191182*^9}],

Cell[BoxData["1.1503837417312768`"], "Output",
 CellChangeTimes->{
  3.500899409618331*^9, {3.500899934389352*^9, 3.500899999525473*^9}, {
   3.500900041061368*^9, 3.500900104865869*^9}, 3.5009002460488586`*^9, {
   3.5009005534727*^9, 3.500900566623251*^9}, 3.50436181637134*^9, 
   3.504362130391437*^9, 3.5043629194462557`*^9, 3.504365454209635*^9, 
   3.504365532258464*^9, 3.504365708924618*^9, 3.504365954934575*^9, 
   3.504366018571225*^9, 3.504366280937747*^9, 3.504366420934976*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["L1"], "Input",
 CellChangeTimes->{{3.5009002003681726`*^9, 3.5009002073578453`*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.50090020208993*^9, 3.500900207856189*^9}, {
   3.500900553529625*^9, 3.500900566673148*^9}, 3.504361816442005*^9, 
   3.5043621304739723`*^9, 3.504362919530017*^9, 3.504365454305707*^9, 
   3.504365532328033*^9, 3.504365709067848*^9, 3.50436595498446*^9, 
   3.504366018624164*^9, 3.504366280994959*^9, 3.504366421000579*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["si"], "Input",
 CellChangeTimes->{{3.500900141995709*^9, 3.500900142108766*^9}}],

Cell[BoxData["0.6594148817054737`"], "Output",
 CellChangeTimes->{
  3.5009001429496717`*^9, {3.5009005535725203`*^9, 3.500900566790041*^9}, 
   3.5043618164887667`*^9, 3.504362130523621*^9, 3.504362919619315*^9, 
   3.504365454405706*^9, 3.50436553246482*^9, 3.504365709141809*^9, 
   3.5043659550360327`*^9, 3.5043660186734333`*^9, 3.504366281037965*^9, 
   3.504366421067285*^9}]
}, Open  ]],

Cell["\<\


Points on the appendage\
\>", "Text",
 CellChangeTimes->{{3.434277567195961*^9, 3.4342775736781273`*^9}, {
   3.434277643634021*^9, 3.4342776572824802`*^9}, 3.457691398567134*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AX", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AY", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BX", "=", 
   RowBox[{"L2", " ", 
    RowBox[{"Sin", "[", "thetaStart", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BY", "=", 
   RowBox[{"L2", " ", 
    RowBox[{"Cos", "[", "thetaStart", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CX", "=", 
   RowBox[{"L4", " ", 
    RowBox[{"Sin", "[", "si", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CY", "=", 
   RowBox[{"L1", "-", 
    RowBox[{"L4", " ", 
     RowBox[{"Cos", "[", "si", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DX", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DY", "=", "L1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FX", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FY", "=", 
   RowBox[{"-", "hAF"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GX", "=", 
   RowBox[{"FX", "-", 
    RowBox[{"L5", " ", 
     RowBox[{"Sin", "[", "gamma", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GY", "=", 
    RowBox[{"FY", "+", 
     RowBox[{"L5", " ", 
      RowBox[{"Cos", "[", "gamma", "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"EX", " ", "=", 
     RowBox[{"BX", "+", " ", "EXLocal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"EY", "=", 
     RowBox[{"BY", " ", "-", " ", "EYLocal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"FX", "=", 
     RowBox[{"BX", "-", " ", "FXLocal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"FY", "=", 
     RowBox[{"EY", "-", "FYLocal"}]}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.434200824523077*^9, 3.4342009975571938`*^9}, {
   3.434201402404606*^9, 3.4342014417974253`*^9}, {3.434201918089024*^9, 
   3.4342019446382847`*^9}, {3.434202519424562*^9, 3.4342026335834017`*^9}, {
   3.434202784318139*^9, 3.434202784925432*^9}, {3.43420388263247*^9, 
   3.434203909785695*^9}, {3.434204567386544*^9, 3.434204569650251*^9}, {
   3.4342052951444817`*^9, 3.4342053038652077`*^9}, {3.434222485699192*^9, 
   3.434222488801467*^9}, 3.434230804741029*^9, {3.4342773234687233`*^9, 
   3.434277380045871*^9}, {3.434277414903802*^9, 3.434277427320122*^9}, {
   3.434284979133072*^9, 3.434284984403282*^9}, {3.434286983581234*^9, 
   3.4342870451648893`*^9}, {3.434287097314393*^9, 3.4342870988327103`*^9}, {
   3.43428725733326*^9, 3.434287298667852*^9}, {3.434287448317561*^9, 
   3.434287458723971*^9}, {3.434287528729109*^9, 3.434287539671946*^9}, {
   3.434287574107542*^9, 3.434287576842161*^9}, {3.434300459196059*^9, 
   3.434300464627245*^9}, {3.435344462458474*^9, 3.4353445114592943`*^9}, {
   3.435344564632226*^9, 3.435344601552343*^9}, {3.4353446656928377`*^9, 
   3.435344670243067*^9}, {3.435345496184452*^9, 3.435345527208778*^9}, {
   3.435522705956583*^9, 3.43552274478968*^9}, {3.4576927864357843`*^9, 
   3.457692826157711*^9}, {3.466788788089048*^9, 3.466788810246284*^9}, {
   3.466788897451317*^9, 3.466788901811521*^9}, 3.466791080778583*^9, {
   3.466791135610347*^9, 3.466791143681385*^9}, {3.46695716458365*^9, 
   3.4669571651668262`*^9}, {3.466957241757025*^9, 3.466957262397664*^9}, {
   3.466957386730891*^9, 3.466957418468136*^9}, {3.467393210905538*^9, 
   3.46739322232358*^9}, {3.467395551693858*^9, 3.46739555509857*^9}, {
   3.467577842741289*^9, 3.467577848100054*^9}, {3.4675843111955013`*^9, 
   3.4675843141384363`*^9}, {3.46763119150301*^9, 3.467631195549425*^9}, {
   3.468586582101246*^9, 3.4685866343454*^9}, {3.4685868042680273`*^9, 
   3.4685868077791033`*^9}, {3.468589908960705*^9, 3.468589953626775*^9}, {
   3.468589990590526*^9, 3.46859000444522*^9}, {3.468593550268641*^9, 
   3.468593585995266*^9}, {3.4685938808211203`*^9, 3.468593907416623*^9}, {
   3.468594501820549*^9, 3.468594502652132*^9}, {3.50084663285616*^9, 
   3.500846639495659*^9}, {3.500846721803581*^9, 3.500846723268155*^9}, {
   3.5008471768449087`*^9, 3.5008471771887407`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"si", ",", "hAF", ",", "hBF"}], "]"}]], "Input",
 CellChangeTimes->{{3.4669571961942873`*^9, 3.466957229217368*^9}, {
  3.4669574417350187`*^9, 3.466957442500519*^9}, {3.468589318455572*^9, 
  3.468589318647374*^9}, {3.46859431978032*^9, 3.4685943214344177`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Check", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"BX", "-", "CX"}], ")"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"BY", "-", "CY"}], ")"}], "^", "2"}]}], "]"}], 
   "\[IndentingNewLine]", "L3"}]}]], "Input",
 CellChangeTimes->{{3.4676524247239513`*^9, 3.467652504238057*^9}}],

Cell[BoxData["0.0708333333333335`"], "Output",
 CellChangeTimes->{{3.4676525088941727`*^9, 3.467652527870455*^9}, 
   3.468589980462379*^9, 3.4685900114201593`*^9, 3.468590120783544*^9, 
   3.468593540432592*^9, 3.468593953691921*^9, 3.468594450615752*^9, {
   3.46859451381684*^9, 3.4685945386060133`*^9}, 3.468594669801766*^9, 
   3.468594718683304*^9, 3.468673737073786*^9, 3.468673800389406*^9, 
   3.468673835699854*^9, 3.4686739545039587`*^9, 3.4686753126280003`*^9, 
   3.46867841435504*^9, 3.4686785363226624`*^9, {3.4686787648161783`*^9, 
   3.468678781461493*^9}, {3.4691932263183823`*^9, 3.4691932464139957`*^9}, 
   3.469193411096572*^9, 3.469193719222851*^9, 3.469193762467094*^9, 
   3.469193822941937*^9, 3.4691939979289637`*^9, 3.469479980536602*^9, 
   3.469480039811718*^9, {3.500842609152301*^9, 3.500842625858391*^9}, 
   3.5008430367097187`*^9, 3.500843275686781*^9, 3.5008434846967173`*^9, 
   3.500843598756194*^9, {3.500844642986505*^9, 3.500844660492505*^9}, 
   3.5008454282747927`*^9, 3.500845809861086*^9, 3.500846100610168*^9, {
   3.500846706473814*^9, 3.500846752394889*^9}, {3.5008471322223673`*^9, 
   3.500847149747526*^9}, 3.500847185012101*^9, 3.500847218556429*^9, 
   3.500847328889895*^9, 3.500847740694436*^9, 3.5008481481060333`*^9, 
   3.500898463110424*^9, 3.500898576695725*^9, 3.5008986230158663`*^9, 
   3.5008990754004583`*^9, 3.500899305750258*^9, {3.500900041238429*^9, 
   3.50090006177833*^9}, {3.500900553672262*^9, 3.500900566892242*^9}, 
   3.504361816624243*^9, 3.504362130619547*^9, 3.5043629197592278`*^9, 
   3.504365454518919*^9, 3.5043655326038733`*^9, 3.5043657092560987`*^9, 
   3.504365955130423*^9, 3.504366018805592*^9, 3.504366281129195*^9, 
   3.504366421136346*^9}],

Cell[BoxData["0.07083333333333333`"], "Output",
 CellChangeTimes->{{3.4676525088941727`*^9, 3.467652527870455*^9}, 
   3.468589980462379*^9, 3.4685900114201593`*^9, 3.468590120783544*^9, 
   3.468593540432592*^9, 3.468593953691921*^9, 3.468594450615752*^9, {
   3.46859451381684*^9, 3.4685945386060133`*^9}, 3.468594669801766*^9, 
   3.468594718683304*^9, 3.468673737073786*^9, 3.468673800389406*^9, 
   3.468673835699854*^9, 3.4686739545039587`*^9, 3.4686753126280003`*^9, 
   3.46867841435504*^9, 3.4686785363226624`*^9, {3.4686787648161783`*^9, 
   3.468678781461493*^9}, {3.4691932263183823`*^9, 3.4691932464139957`*^9}, 
   3.469193411096572*^9, 3.469193719222851*^9, 3.469193762467094*^9, 
   3.469193822941937*^9, 3.4691939979289637`*^9, 3.469479980536602*^9, 
   3.469480039811718*^9, {3.500842609152301*^9, 3.500842625858391*^9}, 
   3.5008430367097187`*^9, 3.500843275686781*^9, 3.5008434846967173`*^9, 
   3.500843598756194*^9, {3.500844642986505*^9, 3.500844660492505*^9}, 
   3.5008454282747927`*^9, 3.500845809861086*^9, 3.500846100610168*^9, {
   3.500846706473814*^9, 3.500846752394889*^9}, {3.5008471322223673`*^9, 
   3.500847149747526*^9}, 3.500847185012101*^9, 3.500847218556429*^9, 
   3.500847328889895*^9, 3.500847740694436*^9, 3.5008481481060333`*^9, 
   3.500898463110424*^9, 3.500898576695725*^9, 3.5008986230158663`*^9, 
   3.5008990754004583`*^9, 3.500899305750258*^9, {3.500900041238429*^9, 
   3.50090006177833*^9}, {3.500900553672262*^9, 3.500900566892242*^9}, 
   3.504361816624243*^9, 3.504362130619547*^9, 3.5043629197592278`*^9, 
   3.504365454518919*^9, 3.5043655326038733`*^9, 3.5043657092560987`*^9, 
   3.504365955130423*^9, 3.504366018805592*^9, 3.504366281129195*^9, 
   3.5043664211380663`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["si"], "Input",
 CellChangeTimes->{{3.5008469917271957`*^9, 3.500847004073813*^9}, {
  3.500898666758731*^9, 3.500898682933608*^9}}],

Cell[BoxData["si"], "Output",
 CellChangeTimes->{{3.50084699329823*^9, 3.5008470045508757`*^9}, {
   3.5008471322843943`*^9, 3.500847149811223*^9}, 3.500847185074424*^9, 
   3.5008472186197863`*^9, 3.500847328952517*^9, 3.500847740740793*^9, 
   3.5008481481690598`*^9, 3.5008984631670218`*^9, 3.500898576746295*^9, 
   3.500898623135462*^9, {3.500898668961063*^9, 3.500898683551652*^9}, 
   3.500899075439027*^9, 3.500899305804142*^9, {3.500900041597929*^9, 
   3.500900061829164*^9}, {3.500900553731529*^9, 3.500900566941155*^9}, 
   3.504361816673168*^9, 3.504362130673348*^9, 3.5043629198132687`*^9, 
   3.504365454574299*^9, 3.5043655326579113`*^9, 3.504365709308968*^9, 
   3.50436595516707*^9, 3.504366018874448*^9, 3.504366281181176*^9, 
   3.5043664211840153`*^9}]
}, Open  ]],

Cell["\<\


Body addresses\
\>", "Text",
 CellChangeTimes->{{3.434131937883367*^9, 3.434131942515545*^9}, 
   3.434132056939098*^9, 3.43427867480791*^9, {3.435421848000547*^9, 
   3.4354218496002913`*^9}, 3.4576913693894453`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ground", " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"mV", " ", "=", " ", "2"}], ";", 
  RowBox[{"carpus", " ", "=", " ", "3"}], ";", 
  RowBox[{"dactyl", " ", "=", " ", "4"}], ";"}]], "Input",
 CellChangeTimes->{{3.433842491840807*^9, 3.4338424965743237`*^9}, {
   3.433842627239996*^9, 3.433842636446225*^9}, {3.4338480786826*^9, 
   3.4338481305381393`*^9}, {3.433849063951211*^9, 3.433849064837405*^9}, {
   3.433849733114781*^9, 3.4338497502253923`*^9}, {3.4338500680102043`*^9, 
   3.433850074834241*^9}, 3.4338507788486567`*^9, 3.433850852652692*^9, {
   3.434101949929105*^9, 3.434101967357286*^9}, 3.434119313612118*^9, 
   3.434131881983409*^9, {3.434278677649804*^9, 3.4342786831128483`*^9}, 
   3.434289465603408*^9}],

Cell["\<\


Display initial geometry\
\>", "Text",
 CellChangeTimes->{{3.4342890013582497`*^9, 3.434289010513914*^9}, {
   3.434289443010428*^9, 3.434289449272645*^9}, 3.457691401487164*^9, {
   3.457692852061466*^9, 3.4576928528849*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"offset", " ", "=", " ", 
   RowBox[{".09", " ", "L1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AX", ",", "AY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"BX", ",", "BY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"CX", ",", "CY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"DX", ",", "DY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"BX", ",", "BY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"CX", ",", "CY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"BX", ",", "BY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"GX", ",", "GY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Initial geometry\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{"\"\<A\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AX", "-", "offset"}], ",", 
          RowBox[{"AY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<B\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"BX", "-", "offset"}], ",", 
          RowBox[{"BY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<C\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CX", "+", "offset"}], ",", 
          RowBox[{"CY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<D\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"DX", "-", "offset"}], ",", 
          RowBox[{"DY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<F\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FX", "-", "offset"}], ",", 
          RowBox[{"FY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<G\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GX", "-", "offset"}], ",", 
          RowBox[{"GY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L1\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"AX", ",", "DX"}], "}"}], "]"}], "-", "offset"}], ",", 
          RowBox[{"Mean", "[", 
           RowBox[{"{", 
            RowBox[{"AY", ",", "DY"}], "}"}], "]"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L2\>\"", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "[", 
             RowBox[{"{", 
              RowBox[{"AX", ",", "BX"}], "}"}], "]"}], "-", "offset"}], ",", 
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"AY", ",", "BY"}], "}"}], "]"}]}], "}"}], "+", 
         "offset"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L3\>\"", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "[", 
             RowBox[{"{", 
              RowBox[{"CX", ",", "BX"}], "}"}], "]"}], "-", "offset"}], ",", 
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"CY", ",", "BY"}], "}"}], "]"}]}], "}"}], "+", 
         RowBox[{"offset", "/", "2"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L4\>\"", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "[", 
             RowBox[{"{", 
              RowBox[{"DX", ",", "CX"}], "}"}], "]"}], "-", "offset"}], ",", 
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"DY", ",", "CY"}], "}"}], "]"}]}], "}"}], "+", 
         "offset"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.434200796065309*^9, 3.434200797593256*^9}, {
   3.434201360079505*^9, 3.434201382768757*^9}, {3.4342014744403973`*^9, 
   3.434201520711919*^9}, {3.434201585757559*^9, 3.434201586058496*^9}, {
   3.434201619110579*^9, 3.434201644401198*^9}, {3.4342016888910522`*^9, 
   3.434201716028594*^9}, {3.434202649174159*^9, 3.434202653836521*^9}, {
   3.4342052951468287`*^9, 3.434205303866748*^9}, {3.434277385085828*^9, 
   3.434277407006825*^9}, {3.43427772904783*^9, 3.4342777964917603`*^9}, {
   3.4342808518842087`*^9, 3.434280872885396*^9}, {3.434281016261243*^9, 
   3.4342810365818167`*^9}, {3.434281117835251*^9, 3.434281135699049*^9}, {
   3.434287051303035*^9, 3.4342870815860357`*^9}, {3.4342873708077717`*^9, 
   3.43428740240132*^9}, 3.43428747554913*^9, {3.434287509224375*^9, 
   3.434287515744697*^9}, {3.434287549482395*^9, 3.4342876020838423`*^9}, {
   3.434287644728332*^9, 3.434287668923428*^9}, {3.434287740460681*^9, 
   3.434287855499194*^9}, {3.434288134426139*^9, 3.4342882463348837`*^9}, {
   3.434288362335698*^9, 3.4342883628434772`*^9}, {3.434288395736211*^9, 
   3.4342883991894283`*^9}, {3.4342885352466927`*^9, 3.434288592848287*^9}, {
   3.4342886344689074`*^9, 3.434288966821568*^9}, 3.434289030368429*^9, 
   3.434289063444079*^9, {3.434289102654718*^9, 3.434289367092504*^9}, {
   3.434289405081286*^9, 3.434289419791609*^9}, {3.435344697908908*^9, 
   3.435344851458047*^9}, {3.435346304584663*^9, 3.435346311839047*^9}, {
   3.46859392752701*^9, 3.468593942436946*^9}, {3.4685939728473377`*^9, 
   3.468593981751395*^9}, {3.500846656550185*^9, 3.5008466630224447`*^9}, {
   3.500846745107231*^9, 3.500846746722804*^9}}],

Cell[BoxData[
 GraphicsBox[{
   GraphicsComplexBox[{{0., 0.}, {0.613348216314652, 0.12012062913436157`}, {
    0.6841308674210334, 0.11744155961988056`}, {0., 1.}, {0.613348216314652, 
    0.12012062913436157`}, {0.6841308674210334, 0.11744155961988056`}, {
    0.613348216314652, 0.12012062913436157`}, {-0.8804591605141792, 
    0.3416666666666667}, {0., -0.16666666666666666`}}, {{{}, {}, 
      {Hue[0.67, 0.6, 0.6], LineBox[{1, 2}]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{3, 4}]}, 
      {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{5, 6, 7}]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{8, 9}]}}, {
      {Hue[0.67, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 1], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 2]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->8.96], 3], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->8.96], 4]}, 
      {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->10.88], 5], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->10.88], 6], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->10.88], 7]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->10.24], 8], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->10.24], 9]}, {}}}], {InsetBox["\<\"A\"\>", {-0.09, 0.09}], 
    InsetBox["\<\"B\"\>", {0.523348216314652, 0.21012062913436158`}], 
    InsetBox["\<\"C\"\>", {0.7741308674210333, 0.20744155961988056`}], 
    InsetBox["\<\"D\"\>", {-0.09, 1.09}], 
    InsetBox["\<\"F\"\>", {-0.09, -0.07666666666666666}], 
    InsetBox["\<\"G\"\>", {-0.9704591605141791, 0.43166666666666664`}], 
    InsetBox["\<\"L1\"\>", NCache[{-0.09, Rational[1, 2]}, {-0.09, 0.5}]], 
    InsetBox["\<\"L2\"\>", {0.306674108157326, 0.15006031456718077`}], 
    InsetBox["\<\"L3\"\>", {0.6037395418678427, 0.16378109437712107`}], 
    InsetBox["\<\"L4\"\>", {0.3420654337105167, 0.6487207798099403}]}},
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  PlotLabel->FormBox["\"Initial geometry\"", TraditionalForm],
  PlotRange->{{-1, 1}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.4353447186927853`*^9, 3.435344852061212*^9}, 
   3.4353462032938137`*^9, {3.435346291470523*^9, 3.435346332381933*^9}, 
   3.43535034223731*^9, 3.435350537919445*^9, 3.435422263541562*^9, 
   3.435422478538992*^9, 3.43542259701721*^9, 3.435422790048156*^9, 
   3.435423582381584*^9, 3.435423723684655*^9, 3.435424027021888*^9, 
   3.435424164528595*^9, {3.457690919953713*^9, 3.4576909614770412`*^9}, 
   3.457692837865082*^9, 3.457692905534186*^9, {3.457710596241297*^9, 
   3.457710620693367*^9}, 3.4667705609607353`*^9, 3.4667934418644943`*^9, 
   3.466852029300254*^9, 3.466852059489524*^9, 3.466852541390448*^9, {
   3.466852696502283*^9, 3.466852724158743*^9}, 3.466852872281104*^9, {
   3.466853653660513*^9, 3.466853666956723*^9}, 3.4668548901194553`*^9, 
   3.466856462952671*^9, 3.466950137027976*^9, 3.466950792487135*^9, 
   3.466950976718173*^9, 3.466951252554541*^9, 3.466951727732671*^9, 
   3.4669522825150223`*^9, 3.466952824665186*^9, {3.46695721318856*^9, 
   3.4669572457946177`*^9}, {3.466957310647594*^9, 3.4669573323077507`*^9}, {
   3.466957404729135*^9, 3.466957446665831*^9}, 3.466958986135522*^9, 
   3.466960317949772*^9, 3.466960748844447*^9, 3.466961326597074*^9, 
   3.466962280674259*^9, 3.466964689959503*^9, 3.46703354306011*^9, 
   3.467034058579933*^9, 3.467049141739312*^9, 3.467049823671776*^9, {
   3.4670498756161213`*^9, 3.46704988448979*^9}, 3.467050282852036*^9, 
   3.4670506134274282`*^9, 3.4670515662845087`*^9, 3.467131109905342*^9, 
   3.467131156488885*^9, 3.467131612284226*^9, 3.467391032442419*^9, 
   3.467391063416911*^9, {3.467391856524972*^9, 3.467391865287963*^9}, 
   3.4673920412926702`*^9, {3.467393324457191*^9, 3.467393333527883*^9}, 
   3.467393369209745*^9, 3.467393888181044*^9, 3.46739536181054*^9, 
   3.467395570003903*^9, 3.467395697274858*^9, {3.4673957632652893`*^9, 
   3.467395819273819*^9}, 3.467395992121607*^9, 3.4673960290013723`*^9, 
   3.467396069981298*^9, 3.4673961331851883`*^9, 3.467396172003312*^9, 
   3.4673963304179296`*^9, 3.46739670892787*^9, 3.467397415824155*^9, 
   3.467397739259794*^9, 3.46739918557841*^9, 3.467399375564184*^9, {
   3.467400220113201*^9, 3.4674002246186132`*^9}, 3.4674019639802094`*^9, 
   3.467402268710245*^9, 3.467403310243269*^9, 3.467458606051834*^9, 
   3.467458854727961*^9, 3.467460879534816*^9, {3.46746093374656*^9, 
   3.467460949476767*^9}, 3.46746101526332*^9, 3.467461158098373*^9, {
   3.467461244253209*^9, 3.467461291633997*^9}, 3.4674614680955973`*^9, 
   3.4674622877751083`*^9, 3.467462331511585*^9, 3.467462394245577*^9, 
   3.46746434223497*^9, 3.467467136603565*^9, 3.46747860500084*^9, 
   3.467479590248279*^9, 3.4674798988115597`*^9, 3.467480319360509*^9, 
   3.467480448778698*^9, 3.46748079589964*^9, 3.467480828025961*^9, 
   3.46748281228459*^9, 3.467483056404635*^9, 3.467483487041806*^9, 
   3.467483522635447*^9, 3.467483569715589*^9, 3.467483688811006*^9, 
   3.467578764407227*^9, {3.467578904241341*^9, 3.4675789297951937`*^9}, 
   3.4675792047849503`*^9, {3.467579267749323*^9, 3.4675793212058067`*^9}, 
   3.467579360848473*^9, 3.467580672664241*^9, 3.467581507355266*^9, 
   3.467581545666584*^9, 3.4675827441991243`*^9, 3.467583054265911*^9, 
   3.467583089680242*^9, 3.46758347807276*^9, 3.467584082908153*^9, 
   3.467584147919705*^9, 3.4675842508902082`*^9, 3.467584321218039*^9, 
   3.467584475703292*^9, {3.4675846107486057`*^9, 3.467584638951211*^9}, {
   3.467584676565976*^9, 3.467584698972169*^9}, 3.467584729864856*^9, 
   3.467584807361137*^9, 3.467631204752315*^9, 3.467631243398849*^9, 
   3.467631307374634*^9, 3.4676319800306873`*^9, 3.4676320804120913`*^9, 
   3.467632131624948*^9, 3.4676321668604307`*^9, {3.467632207519931*^9, 
   3.467632231607566*^9}, 3.46763236698075*^9, {3.4676324327344*^9, 
   3.4676324755201387`*^9}, 3.467632532049817*^9, 3.46765252794066*^9, 
   3.468589980631033*^9, 3.4685900115558767`*^9, 3.468590120830023*^9, 
   3.468593540496929*^9, 3.468593953740953*^9, 3.468594450667883*^9, {
   3.4685945138808517`*^9, 3.468594538658009*^9}, {3.468594657046856*^9, 
   3.46859466987821*^9}, 3.4685947187565928`*^9, 3.46867373713507*^9, 
   3.468673800459746*^9, 3.468673835755032*^9, 3.468673954570609*^9, 
   3.468675312695414*^9, 3.468678414432674*^9, 3.468678536385092*^9, {
   3.468678764914021*^9, 3.468678781528318*^9}, {3.469193226444319*^9, 
   3.469193246487028*^9}, 3.469193411156008*^9, 3.469193719293131*^9, 
   3.469193762542247*^9, 3.4691938230131617`*^9, 3.469193998106929*^9, 
   3.469479980621591*^9, 3.469480039874977*^9, {3.500842609326923*^9, 
   3.500842625995574*^9}, 3.500843036771784*^9, 3.500843275748311*^9, 
   3.500843484754895*^9, 3.500843598813388*^9, {3.500844643062776*^9, 
   3.500844660550777*^9}, 3.500845428328964*^9, 3.500845809916154*^9, 
   3.5008461006890383`*^9, {3.500846706578588*^9, 3.500846752487104*^9}, 
   3.5008469797593193`*^9, 3.500847149892847*^9, 3.5008471851544523`*^9, 
   3.5008472187514772`*^9, 3.500847329034355*^9, 3.5008477408369293`*^9, 
   3.500848148248509*^9, 3.500898463312129*^9, 3.500898576814186*^9, 
   3.500898623252722*^9, 3.500899075535131*^9, 3.500899305869493*^9, {
   3.500900041888393*^9, 3.500900061899947*^9}, {3.500900553802258*^9, 
   3.5009005670072613`*^9}, 3.5043618167830048`*^9, 3.504362130758184*^9, 
   3.504362920126235*^9, 3.50436545473346*^9, 3.504365532729336*^9, 
   3.504365709398118*^9, 3.504365955238578*^9, 3.504366018974145*^9, 
   3.504366281247686*^9, 3.5043664212436543`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Define Bodies", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, 
   3.434119313612301*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "ground", "]"}], " ", "=", " ", 
   RowBox[{"Body", "[", 
    RowBox[{"ground", ",", "\[IndentingNewLine]", 
     RowBox[{"PointList", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{"{", 
        RowBox[{"DX", ",", "DY"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]",
      
     RowBox[{"InitialGuess", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.433849991536397*^9, 3.433850025208375*^9}, {
   3.4338503955399103`*^9, 3.4338504121963587`*^9}, 3.4338506468325977`*^9, 
   3.433850778848741*^9, {3.43385089612752*^9, 3.433850909758131*^9}, {
   3.433869046244482*^9, 3.433869077327327*^9}, {3.4338696567399387`*^9, 
   3.433869669139977*^9}, 3.433869699351898*^9, {3.433869947636655*^9, 
   3.4338699566108437`*^9}, 3.433870094740279*^9, 3.433870178369506*^9, 
   3.4338702147081223`*^9, 3.4338702709801407`*^9, {3.43411090705861*^9, 
   3.43411091034496*^9}, 3.4341193136123943`*^9, {3.4341318869175663`*^9, 
   3.434131889671311*^9}, {3.434132067571561*^9, 3.4341320680353947`*^9}, {
   3.434277513052788*^9, 3.4342775158525248`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "mV", "]"}], " ", "=", " ", 
   RowBox[{"Body", "[", 
    RowBox[{"mV", ",", "\[IndentingNewLine]", 
     RowBox[{"PointList", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{"{", 
        RowBox[{"BX", ",", "BY"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]",
      
     RowBox[{"Centroid", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"InitialGuess", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.43410199373746*^9, 3.434102009840782*^9}, 
   3.434107064137486*^9, {3.434110913937482*^9, 3.434110916625326*^9}, 
   3.4341193136124687`*^9, {3.434132285977191*^9, 3.4341322979439573`*^9}, {
   3.434132349452445*^9, 3.434132384366509*^9}, {3.434133101073022*^9, 
   3.4341331391667137`*^9}, {3.4341984879951487`*^9, 3.434198507851089*^9}, {
   3.434229650491281*^9, 3.434229652982349*^9}, 3.4342770831531467`*^9, {
   3.434277450634807*^9, 3.4342774561771*^9}, 3.434290579598282*^9, {
   3.4671311355607023`*^9, 3.467131136143302*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "carpus", "]"}], "=", 
   RowBox[{"Body", "[", 
    RowBox[{"carpus", ",", "\[IndentingNewLine]", 
     RowBox[{"PointList", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CX", "-", "BX"}], ",", 
          RowBox[{"CY", "-", "BY"}]}], "}"}], ",", "\[IndentingNewLine]", 
        "                       ", 
        RowBox[{"(*", "P2", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FX", "-", "BX"}], ",", 
          RowBox[{"FY", "-", "BY"}]}], "}"}], ",", "\[IndentingNewLine]", 
        "                       ", 
        RowBox[{"(*", "P3", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GX", "-", "BX"}], ",", 
          RowBox[{"GY", "-", "BY"}]}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Mass", "\[Rule]", "dMass"}], ",", 
     RowBox[{"Inertia", "\[Rule]", 
      RowBox[{"dI", "+", "waterI"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"InitialGuess", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"BX", ",", "BY"}], "}"}], ",", "0"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.433848181247767*^9, 3.433848192271748*^9}, {
   3.433849157034647*^9, 3.43384926296737*^9}, {3.433849310448718*^9, 
   3.4338493768694077`*^9}, {3.4338497586272793`*^9, 3.43384977405367*^9}, {
   3.433849817157571*^9, 3.4338498198205643`*^9}, {3.433850433861994*^9, 
   3.433850491425117*^9}, {3.433850645624894*^9, 3.4338506699299994`*^9}, {
   3.4338507159092407`*^9, 3.433850727029276*^9}, 3.433850778848817*^9, {
   3.4338509129036303`*^9, 3.4338509194312687`*^9}, {3.433853986370013*^9, 
   3.433853999489726*^9}, {3.433869080790601*^9, 3.433869109584083*^9}, 
   3.433869748475031*^9, 3.433869969892774*^9, 3.433870183233273*^9, {
   3.433870243419642*^9, 3.4338702534830627`*^9}, {3.434110919730123*^9, 
   3.434110925946024*^9}, {3.434118233196018*^9, 3.434118259755865*^9}, 
   3.434119313612541*^9, {3.4341209738835077`*^9, 3.43412102246817*^9}, 
   3.434132404903974*^9, 3.434132540127123*^9, {3.434133164640354*^9, 
   3.434133178904242*^9}, {3.434133278622121*^9, 3.4341332792201347`*^9}, {
   3.434133365793489*^9, 3.434133366760895*^9}, 3.434198521963374*^9, 
   3.434198627084859*^9, {3.434198703844709*^9, 3.434198753494676*^9}, {
   3.434198818731946*^9, 3.43419881911596*^9}, {3.4341988509087687`*^9, 
   3.434198923368413*^9}, {3.434199145166561*^9, 3.434199148334092*^9}, {
   3.434229655776284*^9, 3.4342296699039297`*^9}, {3.4342297710630407`*^9, 
   3.434229782838469*^9}, {3.4342753126989517`*^9, 3.434275318218129*^9}, {
   3.4342774702513847`*^9, 3.4342774925951366`*^9}, {3.434280942884692*^9, 
   3.434280958489031*^9}, {3.4342871316603003`*^9, 3.434287159948021*^9}, 
   3.4342930701789923`*^9, {3.467131141376141*^9, 3.4671311424801283`*^9}, {
   3.5008472841853933`*^9, 3.5008472857030354`*^9}, 3.50084731790567*^9, {
   3.5043618585746202`*^9, 3.504361864690976*^9}, {3.504361925416349*^9, 
   3.504362024291397*^9}}],

Cell["\<\
bd[dactyl] = Body[dactyl, PointList -> {(*P1*){GX - FX, GY - FY}}, Mass -> \
dMass, Inertia -> dI + waterI, InitialGuess -> {{FX, FY}, 0}];\
\>", "Text",
 CellChangeTimes->{{3.433850549057396*^9, 3.4338506427579327`*^9}, {
   3.433850673026732*^9, 3.433850675562498*^9}, {3.433850732717719*^9, 
   3.433850735149578*^9}, 3.433850778848901*^9, {3.4338509225838842`*^9, 
   3.433850923864263*^9}, 3.4341193136126127`*^9, {3.4342871738866987`*^9, 
   3.4342872233189907`*^9}, {3.43428791863654*^9, 3.434287947412428*^9}, 
   3.434293078849828*^9, {3.435350180598428*^9, 3.435350228990313*^9}, {
   3.467131073717865*^9, 3.467131089876848*^9}, {3.467481883476987*^9, 
   3.467481890515567*^9}, {3.468594248787756*^9, 3.468594251848081*^9}, {
   3.469194350311257*^9, 3.469194352861367*^9}, 3.500847306776829*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetBodies", "[", 
   RowBox[{
    RowBox[{"bd", "[", "ground", "]"}], ",", 
    RowBox[{"bd", "[", "mV", "]"}], ",", 
    RowBox[{"bd", "[", "carpus", "]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.433842547905612*^9, 3.433842595332416*^9}, {
   3.433842642071061*^9, 3.433842696841694*^9}, 3.433842792496451*^9, {
   3.433844630128481*^9, 3.433844634334787*^9}, 3.4338450118518972`*^9, {
   3.433845363087001*^9, 3.433845416895947*^9}, {3.433845506423341*^9, 
   3.433845509532784*^9}, {3.433845632276952*^9, 3.4338456356591473`*^9}, 
   3.433845888576976*^9, {3.433846136903257*^9, 3.43384627295678*^9}, {
   3.4338464333510447`*^9, 3.4338464334048634`*^9}, {3.433849070703677*^9, 
   3.43384907141485*^9}, {3.433849143579122*^9, 3.433849144891034*^9}, {
   3.4338505055269623`*^9, 3.4338505400430202`*^9}, 3.43385077884898*^9, 
   3.433868285347106*^9, {3.434102769892654*^9, 3.434102770216075*^9}, {
   3.4341036962427807`*^9, 3.434103700897155*^9}, 3.434119313612681*^9, 
   3.4341200266291924`*^9, {3.434120776943282*^9, 3.434120783255137*^9}, 
   3.434131893042485*^9, 3.434293240926405*^9, {3.43429363917666*^9, 
   3.4342936440862017`*^9}, {3.4342939990827723`*^9, 3.434294002625285*^9}, 
   3.434294663028777*^9, {3.4343016414796886`*^9, 3.4343016455742826`*^9}, 
   3.504362007129047*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Define constraints", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, 3.4341070540572653`*^9, 
   3.43411931361277*^9}],

Cell["\<\

Pin joint between ground and mV:\
\>", "Text",
 CellChangeTimes->{{3.434110977850408*^9, 3.4341110349582357`*^9}, {
   3.434111105625968*^9, 3.434111106641905*^9}, {3.434111177645481*^9, 
   3.434111187205896*^9}, 3.43413189573565*^9, 3.4342747604672327`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "1", "]"}], "=", " ", 
   RowBox[{"Revolute2", "[", 
    RowBox[{"1", ",", 
     RowBox[{"Point", "[", 
      RowBox[{"ground", ",", "0"}], "]"}], ",", 
     RowBox[{"Point", "[", 
      RowBox[{"mV", ",", "0"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434102271839583*^9, 3.434102285887168*^9}, {
   3.434102639250338*^9, 3.434102639460696*^9}, {3.434103235595167*^9, 
   3.434103255681937*^9}, {3.43410334377748*^9, 3.434103344894705*^9}, 
   3.434107054057372*^9, {3.43411093019396*^9, 3.4341109322177277`*^9}, 
   3.434119313612855*^9, 3.4341318987311172`*^9}],

Cell["\<\

Initially fix position of joint at mV origin (removed later):\
\>", "Text",
 CellChangeTimes->{{3.434110977850408*^9, 3.43411109031286*^9}, {
   3.434111134131466*^9, 3.434111143867688*^9}, 3.434274763203068*^9, {
   3.466958353700539*^9, 3.4669583812216177`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "2", "]"}], " ", "=", " ", 
   RowBox[{"RotationLock1", "[", 
    RowBox[{"2", ",", "  ", "mV", ",", "0"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434102452155766*^9, 3.43410245833743*^9}, {
   3.434102552814776*^9, 3.434102553644745*^9}, {3.434103124719305*^9, 
   3.4341031300032053`*^9}, {3.4341032389934607`*^9, 
   3.4341032408010406`*^9}, {3.434103346963377*^9, 3.434103347206504*^9}, {
   3.434103397805996*^9, 3.434103404281581*^9}, {3.434107014500226*^9, 
   3.434107017702108*^9}, 3.434107054057458*^9, 3.434109636269231*^9, {
   3.434111064968639*^9, 3.434111073536849*^9}, 3.434119313612928*^9, 
   3.434131901200375*^9, 3.43413242612834*^9, {3.434133220027883*^9, 
   3.4341332215513763`*^9}, 3.434198535096178*^9, {3.434229813519099*^9, 
   3.434229816262074*^9}, 3.4342933730691547`*^9, {3.434294537691333*^9, 
   3.434294552117957*^9}, {3.43429458954615*^9, 3.4342945899203157`*^9}, {
   3.434294688524802*^9, 3.4342946887998343`*^9}, 3.434294876072002*^9, {
   3.43429491305092*^9, 3.434294914673254*^9}, {3.4342953135259447`*^9, 
   3.434295318570984*^9}, 3.434300931414877*^9}],

Cell["\<\

Pin joint between carpus and mV:\
\>", "Text",
 CellChangeTimes->{{3.434111157069862*^9, 3.434111174925054*^9}, 
   3.434111223495852*^9, 3.434274765291134*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "3", "]"}], " ", "=", " ", 
   RowBox[{"Revolute2", "[", 
    RowBox[{"3", ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"carpus", ",", " ", "0"}], "]"}], ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"mV", ",", " ", "1"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434102271839583*^9, 3.434102285887168*^9}, {
   3.434102639250338*^9, 3.434102639460696*^9}, {3.434103235595167*^9, 
   3.434103255681937*^9}, {3.43410334377748*^9, 3.434103344894705*^9}, {
   3.434103563171945*^9, 3.434103577707061*^9}, 3.434107054057541*^9, {
   3.434108057276628*^9, 3.4341080667409678`*^9}, {3.434109655623506*^9, 
   3.434109657751317*^9}, {3.434110933938043*^9, 3.434110936025942*^9}, 
   3.4341193136130123`*^9}],

Cell["\<\

Fix distance between ground and top of carpus:\
\>", "Text",
 CellChangeTimes->{{3.434111199104885*^9, 3.434111219871657*^9}, 
   3.434131903685639*^9, 3.434274767323358*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "4", "]"}], " ", "=", " ", 
   RowBox[{"RelativeDistance1", "[", 
    RowBox[{"4", ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"carpus", ",", " ", "1"}], "]"}], ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"ground", ",", " ", "1"}], "]"}], ",", " ", "L4"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4341035963814917`*^9, 3.434103609364781*^9}, 
   3.434107054057622*^9, {3.434108069149374*^9, 3.4341080707730637`*^9}, {
   3.434108871821746*^9, 3.434108877743534*^9}, {3.434109659447789*^9, 
   3.434109666559847*^9}, {3.434110937818274*^9, 3.434110940138731*^9}, 
   3.4341182743325033`*^9, 3.434119313613085*^9, 3.4341319058453283`*^9, {
   3.434230078238098*^9, 3.434230081780854*^9}}],

Cell["\<\

Pin btwn carpus and dactyl\
\>", "Text",
 CellChangeTimes->{{3.435350631426141*^9, 3.435350642300913*^9}}],

Cell["cs[5] = Revolute2[5, Point[dactyl, 0], Point[carpus, 2]];", "Text",
 CellChangeTimes->{{3.434289902888791*^9, 3.434289905809545*^9}, {
  3.434289997407831*^9, 3.43429005416967*^9}}],

Cell["\<\

Lock rotation btwn carpus & dactyl\
\>", "Text",
 CellChangeTimes->{{3.435350648673469*^9, 3.435350663211729*^9}}],

Cell["cs[6] = RotationLock1[6, carpus, dactyl, 0];", "Text",
 CellChangeTimes->{{3.434290176099633*^9, 3.434290181095871*^9}, {
  3.434290212145611*^9, 3.434290250157642*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetConstraints", "[", 
   RowBox[{
    RowBox[{"cs", "[", "1", "]"}], ",", " ", 
    RowBox[{"cs", "[", "2", "]"}], ",", " ", 
    RowBox[{"cs", "[", "3", "]"}], ",", " ", 
    RowBox[{"cs", "[", "4", "]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.434293168474286*^9, 3.4342931689248247`*^9}, {
   3.4342932203524723`*^9, 3.434293220734272*^9}, {3.4342938611142473`*^9, 
   3.434293865969636*^9}, {3.4343016600394897`*^9, 3.434301664062827*^9}, 
   3.504362078882326*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Check system after constraints:\>\"", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"CheckSystem", "[", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.433868950866869*^9, 3.433868954398119*^9}, 
   3.4338690126434*^9, 3.434107054057909*^9, 3.4341193136132298`*^9, {
   3.4669612116389427`*^9, 3.4669612195456457`*^9}}],

Cell[BoxData[
 RowBox[{"\<\"Check system after constraints:\"\>", " ", "True"}]], "Print",
 CellChangeTimes->{
  3.466961326937415*^9, 3.4669646901964283`*^9, 3.467033543340342*^9, 
   3.467034058929393*^9, 3.467049143143239*^9, 3.467049824193762*^9, 
   3.4670498847048693`*^9, 3.467050283089923*^9, 3.467050613641962*^9, 
   3.467051566486313*^9, 3.467131110132605*^9, 3.4671311566869373`*^9, 
   3.467131612516117*^9, 3.467391032953855*^9, 3.467391068970909*^9, {
   3.4673918568977118`*^9, 3.4673918654996233`*^9}, 3.467392041544815*^9, {
   3.467393324842054*^9, 3.467393333957337*^9}, 3.467393369457699*^9, 
   3.46739388844285*^9, 3.467395362152961*^9, 3.467396344819631*^9, 
   3.4673967091714907`*^9, 3.467397416062804*^9, 3.4673977526897078`*^9, 
   3.467399185827601*^9, 3.467399376036565*^9, {3.467400220546484*^9, 
   3.467400224920754*^9}, 3.4674019642286987`*^9, 3.46740226899321*^9, 
   3.467403310523593*^9, 3.467458606271307*^9, 3.467458854989511*^9, 
   3.4674608797378387`*^9, {3.467460933949668*^9, 3.467460949695932*^9}, 
   3.467461015513109*^9, 3.467461158319064*^9, {3.467461244506918*^9, 
   3.4674612918619537`*^9}, 3.4674614683249807`*^9, 3.467462288003665*^9, 
   3.4674623317854633`*^9, 3.467462394475539*^9, 3.46746434248512*^9, 
   3.467467136868904*^9, 3.467478605297421*^9, 3.46747959051677*^9, 
   3.4674798990383463`*^9, 3.467480319601328*^9, 3.467480449007847*^9, 
   3.467480796144907*^9, 3.46748082823908*^9, 3.467482812513966*^9, 
   3.4674830566320744`*^9, 3.4674834872756443`*^9, 3.467483522886591*^9, 
   3.467483569943531*^9, 3.467483689005855*^9, {3.467579268190399*^9, 
   3.467579321403831*^9}, 3.467579368786996*^9, 3.4675806728960533`*^9, 
   3.4675815075714617`*^9, 3.4675815458694267`*^9, 3.4675827444083147`*^9, 
   3.4675830544690247`*^9, 3.467583089893124*^9, 3.467583478287043*^9, 
   3.4675840831230927`*^9, 3.467584148142894*^9, 3.467584251138981*^9, 
   3.467584321436109*^9, 3.46758447591469*^9, {3.467584611080843*^9, 
   3.467584639149084*^9}, {3.467584676764279*^9, 3.467584699182891*^9}, 
   3.467584730074623*^9, 3.467584807572773*^9, 3.467632231822523*^9, 
   3.467632367195855*^9, {3.467632432972721*^9, 3.467632475735107*^9}, 
   3.4676325323050013`*^9, 3.467652528136587*^9, 3.468590121077813*^9, 
   3.468593540692194*^9, 3.468593953937252*^9, 3.46859445215368*^9, {
   3.468594514142507*^9, 3.4685945391022253`*^9}, 3.468594670138517*^9, 
   3.4685947189521303`*^9, 3.468673737333231*^9, 3.468673800687145*^9, 
   3.468673835998317*^9, 3.468673954797944*^9, 3.468675312938006*^9, 
   3.468678414658436*^9, 3.468678536605558*^9, {3.4686787657573566`*^9, 
   3.468678781847013*^9}, 3.469193246782843*^9, 3.469193411413886*^9, 
   3.4691937196289988`*^9, 3.4691937628031807`*^9, 3.469193823272897*^9, 
   3.469194030423171*^9, 3.469479980855433*^9, 3.4694800401277103`*^9, 
   3.500842626258916*^9, 3.500843036977767*^9, 3.500843275971847*^9, 
   3.500843484981056*^9, 3.500843599025135*^9, {3.500844644452042*^9, 
   3.500844660776394*^9}, 3.5008454285430193`*^9, 3.50084581012954*^9, 
   3.500846100891911*^9, 3.50084718577582*^9, 3.500847230182371*^9, 
   3.500847329391182*^9, 3.5008477412127457`*^9, 3.500848148590672*^9, 
   3.500898463667302*^9, 3.500898577040229*^9, 3.5009005672375402`*^9, 
   3.5043618171542053`*^9, 3.5043621311756487`*^9, 3.504362920473242*^9, 
   3.504365454946803*^9, 3.50436553288737*^9, 3.504365709604767*^9, 
   3.504365955489544*^9, 3.5043660199407988`*^9, 3.504366281414426*^9, 
   3.50436642154618*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Evaluate kinematic model", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, 3.4341070540572653`*^9, 
   3.43411931361277*^9, {3.434290619929618*^9, 3.43429063468727*^9}, {
   3.434300971379114*^9, 3.434300978722327*^9}}],

Cell["\<\
SetParameters[{
   (*Torsion spring stiffness*)  theta -> \[Theta]
   }];\
\>", "Text",
 CellChangeTimes->{{3.434105806894232*^9, 3.434105853698058*^9}, 
   3.4341070709939747`*^9, {3.434107401323751*^9, 3.434107403906147*^9}, {
   3.434107446148697*^9, 3.4341074556207647`*^9}, 3.434108942802353*^9, {
   3.434109989204094*^9, 3.434109989797432*^9}, 3.4341103077154627`*^9, 
   3.434114940860403*^9, 3.434116549066193*^9, 3.434119313612204*^9, {
   3.4342299412148027`*^9, 3.434230001914638*^9}, 3.4342309356580753`*^9, 
   3.434274419699451*^9, {3.434277588648147*^9, 3.43427763437844*^9}, {
   3.434278719763199*^9, 3.434278720331243*^9}, {3.434280931496715*^9, 
   3.434280931951358*^9}, {3.434295340313075*^9, 3.4342954029723997`*^9}, {
   3.434300093461738*^9, 3.434300136879755*^9}, 3.434300901401939*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"graph", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"(*", "ground", "*)"}], 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Axis", "[", 
             RowBox[{"ground", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "mV", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", ".5", ",", ".5"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"mV", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "carpus1", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"carpus", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "carpus2", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"carpus", ",", "0", ",", "2"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "carpus3", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Vertex", "[", 
           RowBox[{"carpus", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "3"}], "}"}]}], "]"}]}], "}"}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"graph", "/.", 
   RowBox[{"SolveMech", "[", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.433851035046337*^9, 3.433851061655987*^9}, {
   3.433851516335149*^9, 3.433851597315585*^9}, {3.433851659336302*^9, 
   3.433851702498908*^9}, {3.4338517389721537`*^9, 3.433851743666876*^9}, {
   3.433851909847933*^9, 3.43385195935106*^9}, {3.433852097272633*^9, 
   3.433852113662279*^9}, {3.433852208970933*^9, 3.433852289948728*^9}, {
   3.4338523611892757`*^9, 3.433852382005128*^9}, {3.4338525019315434`*^9, 
   3.433852505611454*^9}, {3.433852548519116*^9, 3.433852567118351*^9}, {
   3.433853890206346*^9, 3.433853914108988*^9}, {3.4341037960587893`*^9, 
   3.434103826970894*^9}, {3.434110952909773*^9, 3.434110960037702*^9}, 
   3.434119313614814*^9, {3.434120488069234*^9, 3.4341204914729853`*^9}, {
   3.434120522845957*^9, 3.434120547998445*^9}, {3.4341208510142612`*^9, 
   3.434120853126833*^9}, {3.434131908505118*^9, 3.4341319107243853`*^9}, {
   3.43413333182621*^9, 3.434133374954295*^9}, {3.434133409398223*^9, 
   3.434133412020389*^9}, {3.434278459898829*^9, 3.434278470472405*^9}, {
   3.4342808828956823`*^9, 3.4342809038014708`*^9}, 3.434281151880027*^9, {
   3.434281190257429*^9, 3.434281253436264*^9}, {3.434290673253387*^9, 
   3.43429069570965*^9}, 3.434290727321073*^9, 3.434290761626799*^9, {
   3.434290899499144*^9, 3.4342910020158*^9}, {3.434291044393037*^9, 
   3.434291084026677*^9}, {3.434291539971753*^9, 3.434291576836103*^9}, {
   3.4342916304722557`*^9, 3.434291631053969*^9}, {3.434292077774431*^9, 
   3.43429208212643*^9}, 3.434292169476342*^9, 3.434292248273932*^9, {
   3.434293270222485*^9, 3.434293270820135*^9}, 3.434293462641699*^9, {
   3.4342935236223392`*^9, 3.434293531650716*^9}, {3.434293729390777*^9, 
   3.4342937431987143`*^9}, {3.434293782170142*^9, 3.434293786464313*^9}, {
   3.4342939077611856`*^9, 3.4342939332248096`*^9}, {3.434294387051078*^9, 
   3.434294389761342*^9}, 3.434294672704693*^9, 3.4343000691687117`*^9, {
   3.434301685037215*^9, 3.43430169842871*^9}, {3.435350381699198*^9, 
   3.435350402781188*^9}, {3.435350562676811*^9, 3.435350573198655*^9}, {
   3.435424144031521*^9, 3.43542414760105*^9}, {3.43542420840355*^9, 
   3.435424243435554*^9}, 3.5043621045826683`*^9, {3.504362162369791*^9, 
   3.504362205928907*^9}, {3.504362291500155*^9, 3.504362300533617*^9}, {
   3.5043625938750677`*^9, 3.5043625952029123`*^9}, {3.504362630330309*^9, 
   3.5043626927864523`*^9}, {3.50436293047432*^9, 3.504362932010066*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 0, 1], 
    PolygonBox[
     NCache[{{Rational[-1, 60], 0}, {Rational[1, 60], 0}, {
       Rational[1, 60], 1}, {
       Rational[-1, 60], 1}}, {{-0.016666666666666666`, 0}, {
       0.016666666666666666`, 0}, {
       0.016666666666666666`, 1}, {-0.016666666666666666`, 1}}]]}, 
   {RGBColor[0, 0.5, 0.5], 
    PolygonBox[{{-0.0032032167769163087`, 0.016355952435057386`}, {
     0.0032032167769163087`, -0.016355952435057386`}, {0.6165514330915682, 
     0.10376467669930418`}, {0.6101449995377357, 0.13647658156941894`}}]}, 
   {RGBColor[1, 0, 0], 
    PolygonBox[{{0.6139785856121769, 0.13677537057115716`}, {
     0.6127178470171271, 0.10346588769756598`}, {0.6835004981235084, 
     0.10078681818308499`}, {0.6847612367185583, 0.13409630105667614`}}]}, 
   {RGBColor[1, 0, 0], 
    PolygonBox[{{0.6204075870708704, 0.10502284577705956`}, {
     0.6062888455584335, 
     0.13521841249166358`}, {-0.007059370756218464, -0.1515688833093647}, {
     0.007059370756218464, -0.18176445002396868`}}]}, 
   {RGBColor[1, 0, 0], PointBox[{0.613348216314652, 0.12012062913436157`}], 
    PointBox[{-0.8804591605141792, 0.3416666666666667}]}},
  AspectRatio->Automatic,
  Frame->True,
  GridLines->Automatic,
  PlotRange->{{-1, 1.5}, {-2, 1}}]], "Output",
 CellChangeTimes->{{3.4342944139467583`*^9, 3.434294449877108*^9}, 
   3.434294562853619*^9, {3.4342945949800863`*^9, 3.434294608104693*^9}, {
   3.434294682747376*^9, 3.434294718650597*^9}, {3.4342948867399883`*^9, 
   3.434294933546048*^9}, {3.434295351935216*^9, 3.4342954128359127`*^9}, {
   3.4343001160488243`*^9, 3.434300144889658*^9}, 3.434300376063841*^9, {
   3.4343007423152723`*^9, 3.434300750075494*^9}, {3.4343009148618307`*^9, 
   3.434300938150729*^9}, 3.434301709403857*^9, 3.435344653121496*^9, 
   3.435346203638371*^9, 3.435346332745687*^9, 3.4353503441483*^9, 
   3.435350394851571*^9, {3.4353505543078117`*^9, 3.435350574658946*^9}, 
   3.435422264097958*^9, 3.4354224788620663`*^9, 3.43542259736353*^9, 
   3.435422710356708*^9, 3.4354227903968477`*^9, 3.4354235827210627`*^9, 
   3.4354237240703793`*^9, 3.4354240426791973`*^9, 3.435424164963443*^9, {
   3.43542420919804*^9, 3.4354242438722963`*^9}, 3.457690921762556*^9, 
   3.4576929059857063`*^9, {3.457710596536194*^9, 3.4577106210731363`*^9}, 
   3.466770579944034*^9, 3.466793442184832*^9, {3.466852696851448*^9, 
   3.4668527245099277`*^9}, 3.466852901370204*^9, {3.466853653977618*^9, 
   3.466853667390337*^9}, 3.466854890569228*^9, 3.466856463291478*^9, 
   3.4669507928500347`*^9, 3.466950977151423*^9, 3.466951252847171*^9, 
   3.4669517281628304`*^9, 3.466952282810508*^9, 3.46695282495492*^9, 
   3.466958986394383*^9, 3.466960318212306*^9, 3.466960749222691*^9, 
   3.466961326978733*^9, 3.466964690250512*^9, 3.4670335433920918`*^9, 
   3.467034058969201*^9, 3.46704914357337*^9, 3.4670498242792473`*^9, 
   3.467049884724248*^9, 3.467050283141363*^9, 3.467050613682675*^9, 
   3.4670515665372972`*^9, 3.467131110208498*^9, 3.4671311567390614`*^9, 
   3.467131612566483*^9, 3.467391033007433*^9, 3.4673910741408033`*^9, {
   3.467391856949484*^9, 3.4673918655447083`*^9}, 3.467392041597787*^9, {
   3.467393324894453*^9, 3.4673933342008677`*^9}, 3.4673933694907*^9, 
   3.467393888493659*^9, 3.467395362203973*^9, 3.4673963448622847`*^9, 
   3.467396709211811*^9, 3.467397416113394*^9, 3.467397757709445*^9, 
   3.467399185882618*^9, 3.467399376104549*^9, {3.467400220603525*^9, 
   3.467400224973423*^9}, 3.4674019642810926`*^9, 3.467402269033543*^9, 
   3.467403310563677*^9, 3.467458606320713*^9, 3.467458855043109*^9, 
   3.467460879807889*^9, {3.4674609340171824`*^9, 3.467460949764926*^9}, 
   3.4674610155526943`*^9, 3.4674611583752747`*^9, {3.467461244574312*^9, 
   3.467461291931843*^9}, 3.467461468398459*^9, 3.467462288072735*^9, 
   3.467462331812029*^9, 3.467462394544421*^9, 3.467464342524501*^9, 
   3.467467136923245*^9, 3.467478605351597*^9, 3.46747959056782*^9, 
   3.4674798990900373`*^9, 3.467480319654842*^9, 3.467480449085957*^9, 
   3.4674807961991587`*^9, 3.467480828309428*^9, 3.4674828125680103`*^9, 
   3.467483056686688*^9, 3.467483487328343*^9, 3.46748352294077*^9, 
   3.46748356996346*^9, 3.4674836890600863`*^9, {3.467579268457542*^9, 
   3.4675793214376583`*^9}, 3.4675793734474363`*^9, 3.467580672949054*^9, 
   3.467581507623804*^9, 3.467581545922216*^9, 3.4675827444483433`*^9, 
   3.4675830545217733`*^9, 3.4675830899351892`*^9, 3.467583478340539*^9, 
   3.467584083173296*^9, 3.467584148195107*^9, 3.46758425118122*^9, 
   3.4675843214891777`*^9, 3.467584475965221*^9, {3.4675846111291933`*^9, 
   3.467584639200727*^9}, {3.4675846768150597`*^9, 3.4675846992336082`*^9}, 
   3.467584730125839*^9, 3.467584807623424*^9, 3.4676322318848248`*^9, 
   3.467632367236558*^9, {3.467632433025032*^9, 3.4676324757886457`*^9}, 
   3.467632532357929*^9, 3.467652528191565*^9, 3.468590121135676*^9, 
   3.468593540758183*^9, 3.4685939540176563`*^9, 3.468594452396056*^9, {
   3.468594514194973*^9, 3.468594539148954*^9}, 3.468594670191107*^9, 
   3.468594718972927*^9, 3.4686737374060287`*^9, 3.468673800739612*^9, 
   3.468673836051963*^9, 3.46867395485045*^9, 3.468675312991984*^9, 
   3.468678414728159*^9, 3.4686785366474247`*^9, {3.468678766137184*^9, 
   3.468678781898787*^9}, 3.469193246822085*^9, 3.4691934114739428`*^9, 
   3.469193719731166*^9, 3.4691937628590403`*^9, 3.4691938233460293`*^9, 
   3.469194030465671*^9, 3.469479980905983*^9, 3.469480040172879*^9, 
   3.500842626330715*^9, 3.500843037031002*^9, 3.5008432760247507`*^9, 
   3.500843485034547*^9, 3.500843599077188*^9, {3.500844644838296*^9, 
   3.500844660828335*^9}, 3.500845428596642*^9, 3.500845810182693*^9, 
   3.500846100966971*^9, 3.500847185893148*^9, 3.500847230261525*^9, 
   3.500847329426055*^9, 3.500847741308755*^9, 3.500848148654092*^9, 
   3.500898463726142*^9, 3.500898577098329*^9, 3.500900567336273*^9, 
   3.504361817198614*^9, 3.50436214444739*^9, {3.504362189459752*^9, 
   3.504362206478663*^9}, {3.504362294163335*^9, 3.504362301091312*^9}, 
   3.5043625967064238`*^9, {3.5043626364740553`*^9, 3.5043626579214*^9}, 
   3.504362693630947*^9, 3.504362920575117*^9, 3.504365455009405*^9, 
   3.5043655329416323`*^9, 3.5043657096782007`*^9, 3.504365955589077*^9, 
   3.504366020023732*^9, 3.5043662814650927`*^9, 3.504366421699376*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Evaluate", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Angle", "[", 
      RowBox[{"mV", ",", "1"}], "]"}], "}"}], "/.", 
    RowBox[{"SolveMech", "[", "]"}]}], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{"180", "/", "\[Pi]"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.4354233198572273`*^9, 3.435423336648115*^9}}],

Cell[BoxData[
 RowBox[{"{", "11.080793298680414`", "}"}]], "Output",
 CellChangeTimes->{{3.434123203732888*^9, 3.434123214018982*^9}, 
   3.434123262965726*^9, {3.4341234023994083`*^9, 3.434123449746995*^9}, {
   3.434123507887905*^9, 3.434123548130678*^9}, 3.434125036338992*^9, 
   3.4341250853792133`*^9, 3.434125122616885*^9, 3.434125227316805*^9, 
   3.4341324500747766`*^9, 3.434133289676886*^9, 3.434133386224289*^9, 
   3.4341987878000097`*^9, 3.434205249833119*^9, 3.434229884934246*^9, 
   3.434230943190527*^9, 3.434274349879294*^9, 3.43427443055289*^9, 
   3.434275616048737*^9, 3.435344654958803*^9, 3.435422996138465*^9, 
   3.4354233374502897`*^9, 3.435423582767679*^9, 3.435423724102519*^9, 
   3.435424042712367*^9, 3.457690921831407*^9, 3.4576929060598927`*^9, {
   3.457710596605604*^9, 3.457710621269389*^9}, 3.466770579970213*^9, 
   3.4667934422162867`*^9, {3.466852696901371*^9, 3.46685272455567*^9}, 
   3.466852901439533*^9, {3.4668536540147877`*^9, 3.466853667440426*^9}, 
   3.466854890625783*^9, 3.4668564633538437`*^9, 3.466950792879743*^9, 
   3.4669509771822968`*^9, 3.466951252877592*^9, 3.46695172821146*^9, 
   3.466952282829163*^9, 3.4669528249956512`*^9, 3.466958986426036*^9, 
   3.466960318245613*^9, 3.466960749302752*^9, 3.466961327029364*^9, 
   3.466964690300837*^9, 3.467033543447209*^9, 3.467034059023713*^9, 
   3.467049143657909*^9, 3.4670498243907013`*^9, 3.467049884737556*^9, 
   3.467050283146674*^9, 3.467050613710017*^9, 3.4670515665425243`*^9, 
   3.467131110276773*^9, 3.4671311567443657`*^9, 3.4671316125855217`*^9, 
   3.467391033050508*^9, 3.4673910743203773`*^9, {3.467391856995908*^9, 
   3.467391865566204*^9}, 3.467392041631124*^9, {3.467393324939054*^9, 
   3.46739333423547*^9}, 3.46739336949615*^9, 3.467393888519883*^9, 
   3.467395362247154*^9, 3.4673963449111423`*^9, 3.4673967092480516`*^9, 
   3.4673974161563053`*^9, 3.467397757881641*^9, 3.4673991859504766`*^9, 
   3.467399376160551*^9, {3.4674002206337643`*^9, 3.467400225039589*^9}, 
   3.4674019643069773`*^9, 3.467402269064271*^9, 3.4674033106010942`*^9, 
   3.467458606351615*^9, 3.4674588550892878`*^9, 3.4674608798514338`*^9, {
   3.467460934061904*^9, 3.467460949808263*^9}, 3.467461015602512*^9, 
   3.4674611584041653`*^9, {3.4674612446193047`*^9, 3.4674612919750957`*^9}, 
   3.4674614684339447`*^9, 3.467462288127131*^9, 3.467462331863298*^9, 
   3.467462394589834*^9, 3.46746434257871*^9, 3.467467136929001*^9, 
   3.46747860535708*^9, 3.467479590583768*^9, 3.467479899125559*^9, 
   3.467480319688108*^9, 3.46748044912836*^9, 3.467480796231627*^9, 
   3.4674808283493853`*^9, 3.46748281257343*^9, 3.4674830566920767`*^9, 
   3.467483487364071*^9, 3.467483522973505*^9, 3.467483569979891*^9, 
   3.4674836890657187`*^9, {3.467579268557274*^9, 3.4675793214695177`*^9}, 
   3.467579373612965*^9, 3.467580672973332*^9, 3.467581507629046*^9, 
   3.4675815459274063`*^9, 3.467582744453979*^9, 3.467583054527055*^9, 
   3.467583089942672*^9, 3.467583478345769*^9, 3.467584083178699*^9, 
   3.467584148200533*^9, 3.467584251229416*^9, 3.4675843214944553`*^9, 
   3.467584475981742*^9, {3.4675846111603107`*^9, 3.467584639206012*^9}, {
   3.4675846768315077`*^9, 3.4675846992509527`*^9}, 3.4675847301423883`*^9, 
   3.4675848076602087`*^9, 3.467632231890072*^9, 3.4676323672915487`*^9, {
   3.467632433030435*^9, 3.4676324757940083`*^9}, 3.467632532365327*^9, 
   3.467652528197873*^9, 3.468590121141906*^9, 3.468593540763612*^9, 
   3.468593954031342*^9, 3.468594452436184*^9, {3.4685945142849627`*^9, 
   3.468594539186672*^9}, 3.4685946702449408`*^9, 3.468594718984766*^9, 
   3.468673737420589*^9, 3.468673800810055*^9, 3.468673836115635*^9, 
   3.468673954920788*^9, 3.468675313025234*^9, 3.4686784147730923`*^9, 
   3.468678536726458*^9, {3.468678766202427*^9, 3.4686787819317408`*^9}, 
   3.4691932468283787`*^9, 3.469193411479307*^9, 3.4691937197976007`*^9, 
   3.4691937628864393`*^9, 3.46919382335126*^9, 3.469194030517581*^9, 
   3.469479980939196*^9, 3.469480040238778*^9, 3.50084262640482*^9, 
   3.500843037084371*^9, 3.500843276094821*^9, 3.5008434851084013`*^9, 
   3.500843599128565*^9, {3.500844645016547*^9, 3.500844660875257*^9}, 
   3.500845428626932*^9, 3.500845810212818*^9, 3.500846100973271*^9, 
   3.5008471859634542`*^9, 3.5008472303128357`*^9, 3.500847329457797*^9, 
   3.500847741375999*^9, 3.500848148662737*^9, 3.5008984637503147`*^9, 
   3.500898577107423*^9, 3.500900567344952*^9, 3.504361817252865*^9, 
   3.504362144568473*^9, 3.504362920640152*^9, 3.504365455049103*^9, 
   3.504365532977916*^9, 3.504365709718729*^9, 3.504365955795683*^9, 
   3.50436602012722*^9, 3.504366281501155*^9, 3.504366421800632*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define Loads", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, {3.43410551368935*^9, 
   3.4341055144477167`*^9}, 3.434106163146392*^9, 3.434107568980838*^9, 
   3.434119313613394*^9}],

Cell["\<\

Moment created by the spring\
\>", "Text",
 CellChangeTimes->{{3.435421382250908*^9, 3.4354213984328613`*^9}, {
  3.435421435643076*^9, 3.4354214364987183`*^9}}],

Cell["springMoment = kSpring  ( Pi/2 - Angle[mV, 1] - thetaRest);", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"springMoment", "=", 
   RowBox[{"kSpring", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Pi", "/", "2"}], "-", 
      RowBox[{"Angle", "[", 
       RowBox[{"mV", ",", "1"}], "]"}], "-", "thetaRest"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dragMoment", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "0.5"}], "*", "rho", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Velocity", "[", "carpus", "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], ")"}], "^", "2"}], "*", 
      RowBox[{"(", 
       RowBox[{"dacLen", "^", "5"}], ")"}], "*", "DrgIdx"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Velocity", "[", "carpus", "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}], "/", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"-", "20"}]}], "+", 
        RowBox[{
         RowBox[{"Velocity", "[", "carpus", "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.467397367059475*^9, 3.46739737225071*^9}, {
   3.467399200093937*^9, 3.467399224662904*^9}, {3.46739930539154*^9, 
   3.467399307877944*^9}, {3.467464168450169*^9, 3.467464174271186*^9}, 
   3.467479580284769*^9, {3.4674798658431053`*^9, 3.4674798694658403`*^9}, {
   3.467480295432111*^9, 3.467480301144023*^9}, 3.46748078867292*^9, 
   3.4674808188044147`*^9, {3.467577943277213*^9, 3.4675779508016977`*^9}, {
   3.467580590093889*^9, 3.4675806032544193`*^9}, {3.467581391122341*^9, 
   3.467581410424718*^9}, {3.467582622476081*^9, 3.4675826696199007`*^9}, {
   3.467582885375607*^9, 3.467582904264361*^9}, {3.467582978228339*^9, 
   3.467583035454988*^9}, 3.467583078276351*^9, {3.4675840193969917`*^9, 
   3.467584059741879*^9}, {3.467584111082471*^9, 3.467584118256734*^9}, {
   3.4675842053591557`*^9, 3.467584208069194*^9}, {3.469193689290512*^9, 
   3.469193699179002*^9}, {3.500843180243196*^9, 3.500843211222398*^9}, 
   3.500843476374782*^9, {3.5008435793151083`*^9, 3.500843580459527*^9}, {
   3.5008461179333153`*^9, 3.500846118731327*^9}, {3.500846670493204*^9, 
   3.500846671209605*^9}, {3.500847713197331*^9, 3.500847715101405*^9}, 
   3.5008482116018972`*^9, {3.504362809247869*^9, 3.504362824869711*^9}, {
   3.5043655037236137`*^9, 3.504365520173851*^9}, 3.504365696608996*^9, {
   3.504365932116322*^9, 3.504365938006734*^9}, 3.504366002918933*^9, 
   3.504366245268303*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ld", "[", "1", "]"}], "=", 
   RowBox[{"Moment", "[", 
    RowBox[{"mV", ",", "springMoment"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4341179384334507`*^9, 3.434118015487814*^9}, 
   3.434118808587479*^9, {3.434119088745708*^9, 3.434119103535346*^9}, {
   3.4341192045669823`*^9, 3.4341192125890408`*^9}, 3.4341193136136293`*^9, {
   3.4341213624623003`*^9, 3.4341213629294147`*^9}, 3.434274334785894*^9, 
   3.4342755283244343`*^9, 3.4342784293607187`*^9, {3.434281338262145*^9, 
   3.4342813387091217`*^9}, 3.4343007600018578`*^9, 3.435421376419284*^9, {
   3.4354217361958027`*^9, 3.4354217496630898`*^9}, {3.435421880333239*^9, 
   3.4354218956517982`*^9}, {3.435423527590975*^9, 3.435423529682732*^9}, {
   3.45771026545807*^9, 3.457710338084113*^9}, {3.466852959657402*^9, 
   3.4668529604010687`*^9}, {3.466949762598448*^9, 3.466949764682323*^9}, {
   3.466949959090445*^9, 3.466949960241022*^9}, 3.4669500157521267`*^9, {
   3.466950393808113*^9, 3.4669503955097322`*^9}, {3.4669504546594143`*^9, 
   3.4669504604997807`*^9}, {3.467390886693614*^9, 3.467390903693972*^9}, {
   3.467391083172348*^9, 3.467391083271961*^9}, {3.467393242107831*^9, 
   3.467393286292718*^9}, {3.4673965904779997`*^9, 3.467396648533126*^9}, {
   3.467397363979684*^9, 3.467397378411203*^9}}],

Cell["\<\

Drag on dactyl\
\>", "Text",
 CellChangeTimes->{{3.435421936917057*^9, 3.4354219500619164`*^9}}],

Cell["\<\
ld[2] = Force[dactyl, Axis[Point[dactyl, 1], -Velocity[dactyl, 1]^2], 5.0, \
Magnitude -> Relative];\
\>", "Text",
 CellChangeTimes->{{3.434107461221321*^9, 3.434107536985395*^9}, 
   3.434107568981022*^9, 3.43410956185292*^9, 3.434114758636565*^9, {
   3.434114908364341*^9, 3.434114908826633*^9}, 3.434119313613687*^9, 
   3.435422067622748*^9, {3.435422162294079*^9, 3.435422164273871*^9}, {
   3.435422226340621*^9, 3.435422236261747*^9}, {3.4354223008271923`*^9, 
   3.4354223319230137`*^9}, {3.435422380093701*^9, 3.435422381469528*^9}, {
   3.4354224154954576`*^9, 3.435422463122024*^9}, {3.435422588682383*^9, 
   3.4354225891043367`*^9}, {3.4354227453703413`*^9, 3.435422746608529*^9}, {
   3.435427201963395*^9, 3.435427211107098*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ld", "[", "2", "]"}], "=", 
   RowBox[{"Moment", "[", 
    RowBox[{"carpus", ",", "dragMoment"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467031857615892*^9, 3.467031868757907*^9}, {
   3.467033567033801*^9, 3.467033626795087*^9}, {3.467033764074607*^9, 
   3.467033810400522*^9}, {3.467033896355175*^9, 3.467033922320753*^9}, {
   3.467034113095687*^9, 3.4670341862810497`*^9}, 3.467034833956736*^9, {
   3.4674641576694317`*^9, 3.467464164548934*^9}, {3.467480091453931*^9, 
   3.4674801011403627`*^9}, {3.4674801776419497`*^9, 3.467480199025725*^9}, {
   3.4674802839038258`*^9, 3.467480284341455*^9}, {3.467584663619111*^9, 
   3.467584721575204*^9}, {3.500843031213997*^9, 3.500843031364316*^9}, 
   3.504362876195182*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ld", "[", "3", "]"}], "=", 
   RowBox[{"Gravity", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", "0"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4674032578383207`*^9, 3.467403277366864*^9}, {
  3.4674614613131123`*^9, 3.4674614859728603`*^9}}],

Cell[BoxData[
 RowBox[{"SetLoads", "[", 
  RowBox[{
   RowBox[{"ld", "[", "1", "]"}], ",", 
   RowBox[{"ld", "[", "2", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434105940029258*^9, 3.434105946030613*^9}, 
   3.434106163146649*^9, {3.434107541681593*^9, 3.4341075689812927`*^9}, 
   3.434119313613799*^9, {3.4341211891325493`*^9, 3.434121191492165*^9}, 
   3.434121347982469*^9, {3.435421963271137*^9, 3.435421964911187*^9}, {
   3.4674032990942497`*^9, 3.467403300763925*^9}, 3.4674623870906887`*^9, {
   3.467464135180768*^9, 3.4674641374348783`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Check system after loads:\>\"", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"CheckSystem", "[", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.466961089334976*^9, 3.46696111812042*^9}}],

Cell[BoxData[
 RowBox[{"\<\"Check system after loads:\"\>", " ", "True"}]], "Print",
 CellChangeTimes->{{3.4669610984461813`*^9, 3.466961122861388*^9}, 
   3.466961327184416*^9, 3.466964690396402*^9, 3.4670335440544777`*^9, 
   3.467034059348158*^9, 3.467034820836413*^9, 3.467049143974249*^9, 
   3.4670498244623404`*^9, 3.467049884804676*^9, 3.467050283222804*^9, 
   3.467050613783106*^9, 3.4670515666359177`*^9, 3.46713111034842*^9, 
   3.467131156820657*^9, 3.4671316126700153`*^9, 3.4673910334797373`*^9, {
   3.467391076869302*^9, 3.4673910881425037`*^9}, {3.467391857079763*^9, 
   3.4673918656288*^9}, 3.46739204172991*^9, {3.467393325044097*^9, 
   3.46739333436757*^9}, 3.4673933696123257`*^9, 3.467393888770055*^9, 
   3.467396387329546*^9, 3.467396709326035*^9, 3.467397416290276*^9, 
   3.467397777311674*^9, 3.467399231956585*^9, 3.4673993765860357`*^9, {
   3.467400220748343*^9, 3.467400225149679*^9}, 3.467401964382413*^9, 
   3.467402269192678*^9, 3.467403310801528*^9, 3.467458606454907*^9, 
   3.467458855228651*^9, 3.467460879989925*^9, {3.467460934182413*^9, 
   3.4674609499590807`*^9}, 3.467461015734387*^9, 3.467461158531536*^9, {
   3.467461244739778*^9, 3.467461292078731*^9}, 3.467461468613183*^9, 
   3.467462288448489*^9, 3.467462332158162*^9, 3.467462394829535*^9, 
   3.4674643428601313`*^9, 3.46746713703811*^9, 3.467478605481461*^9, 
   3.467479590713215*^9, 3.4674798993109217`*^9, 3.4674802059493847`*^9, {
   3.467480307593261*^9, 3.467480319885982*^9}, 3.4674804492910137`*^9, 
   3.467480796479398*^9, 3.4674808285052557`*^9, 3.467482812697545*^9, 
   3.4674830567987423`*^9, 3.467483487457266*^9, 3.467483523073937*^9, 
   3.467483570077615*^9, 3.467483689189076*^9, {3.467579268784918*^9, 
   3.467579321587219*^9}, 3.4675793852667*^9, 3.467580673073317*^9, 
   3.467581507754764*^9, 3.46758154610999*^9, 3.467582744579897*^9, 
   3.467583054807858*^9, 3.467583090032528*^9, 3.467583478464918*^9, 
   3.467584083300301*^9, 3.467584148454595*^9, 3.467584251355638*^9, 
   3.4675843216130867`*^9, 3.467584476097419*^9, {3.4675846112796917`*^9, 
   3.467584639316897*^9}, {3.4675846774439573`*^9, 3.4675846993493032`*^9}, 
   3.467584730258523*^9, 3.467584807788115*^9, 3.467632232022821*^9, 
   3.467632367562586*^9, {3.4676324331226463`*^9, 3.4676324758930597`*^9}, 
   3.467632532455349*^9, 3.467652528305708*^9, 3.468590121245615*^9, 
   3.4685935408946953`*^9, 3.468593954154427*^9, 3.468594452810855*^9, {
   3.468594514450534*^9, 3.468594539537915*^9}, 3.4685946703806057`*^9, 
   3.46859471928508*^9, 3.4686737375190697`*^9, 3.4686738009357986`*^9, 
   3.468673836284814*^9, 3.46867395508008*^9, 3.46867531318976*^9, 
   3.468678414904347*^9, 3.468678536842383*^9, {3.4686787663304462`*^9, 
   3.468678782080669*^9}, 3.469193246931409*^9, 3.4691934115979633`*^9, 
   3.4691937201354723`*^9, 3.469193763022605*^9, 3.469193823711681*^9, 
   3.469194030644599*^9, 3.4694799811712914`*^9, 3.469480040427681*^9, 
   3.500842626510041*^9, 3.500843037310384*^9, 3.500843276288916*^9, 
   3.500845810514832*^9, 3.5008461017384987`*^9, 3.50084718710815*^9, 
   3.500847329875985*^9, 3.5008477417805243`*^9, 3.5008481489915657`*^9, 
   3.500898463906509*^9, 3.500898577241746*^9, 3.500900567469051*^9, 
   3.504361817375903*^9, 3.504362780379138*^9, 3.504362920922536*^9, 
   3.504365455211726*^9, 3.504365533104143*^9, 3.504365709828264*^9, 
   3.504365956066464*^9, 3.504366020621656*^9, 3.504366281711163*^9, 
   3.504366422174138*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Find solution", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, {3.43410551368935*^9, 
   3.4341055144477167`*^9}, 3.434106163146392*^9, 3.434107568980838*^9, {
   3.434114466203801*^9, 3.434114468102406*^9}, 3.434117820733309*^9, 
   3.434119313613997*^9}],

Cell["Solution with the 4-bar linkage constrained from moving:", "Text",
 CellChangeTimes->{{3.434114479520831*^9, 3.4341145127087793`*^9}, 
   3.4341178207334023`*^9, 3.434119313614067*^9}],

Cell["\<\
Remove constraint 2 (fixed angle of the mV)  & define initial conditions\
\>", "Text",
 CellChangeTimes->{{3.434114522836343*^9, 3.434114585080662*^9}, 
   3.434117820733615*^9, 3.434119313614246*^9, {3.4669510010939503`*^9, 
   3.466951010231287*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fsys", " ", "=", " ", 
   RowBox[{"SetFree", "[", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Solution", "\[Rule]", "Dynamic"}], ",", "\[IndentingNewLine]",
        
       RowBox[{"InitialCondition", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"T", "\[Rule]", "0"}], ",", 
          RowBox[{"\[CapitalTheta]2d", "\[Rule]", "0"}], ",", 
          RowBox[{"\[CapitalTheta]3d", "\[Rule]", "0"}], ",", 
          RowBox[{"\[CapitalTheta]4d", "\[Rule]", "0"}], ",", 
          RowBox[{"X2d", "\[Rule]", "0"}], ",", 
          RowBox[{"Y2d", "\[Rule]", "0"}], ",", 
          RowBox[{"X3d", "\[Rule]", "0"}], ",", 
          RowBox[{"Y3d", "\[Rule]", "0"}], ",", 
          RowBox[{"X4d", "\[Rule]", "0"}], ",", 
          RowBox[{"Y4d", "\[Rule]", "0"}]}], "}"}]}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.434109096289949*^9, 3.434109107522464*^9}, {
   3.4341091908887663`*^9, 3.434109245052086*^9}, 3.4341097474359293`*^9, 
   3.434114274571185*^9, 3.43411782073368*^9, {3.434118125521209*^9, 
   3.4341181267671947`*^9}, 3.434119313614304*^9, 3.434120161305183*^9, {
   3.4341215675602303`*^9, 3.4341215729476433`*^9}, {3.434278121725716*^9, 
   3.4342781527803507`*^9}, {3.434278185765707*^9, 3.434278309053814*^9}, {
   3.434278350866028*^9, 3.434278382666182*^9}, {3.4669505630337143`*^9, 
   3.466950610299862*^9}, {3.4669508906291323`*^9, 3.4669509207250757`*^9}}],

Cell["SolveFree[fsys]", "Text",
 CellChangeTimes->{3.43411658333981*^9, 3.434117820733869*^9, 
  3.434119313614365*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Default", " ", "solver"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"sol", " ", "=", " ", 
    RowBox[{"SolveFree", "[", 
     RowBox[{"fsys", ",", " ", "simDuration", ",", " ", 
      RowBox[{"MakeRules", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"Location", ",", " ", "Velocity", ",", " ", "Acceleration"}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"MaxError", "\[Rule]", "mxErr"}]}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.434110714439767*^9, 3.434110722118281*^9}, {
   3.434111265924449*^9, 3.434111266010551*^9}, {3.4341134794646263`*^9, 
   3.434113479767232*^9}, {3.434113973249895*^9, 3.4341140061305857`*^9}, {
   3.434114098121132*^9, 3.434114098615354*^9}, {3.434114166759571*^9, 
   3.4341141669368353`*^9}, {3.434114214079558*^9, 3.434114226354653*^9}, {
   3.434114446316066*^9, 3.43411444680991*^9}, {3.4341147802121553`*^9, 
   3.434114792660252*^9}, 3.4341178207341223`*^9, {3.43411893264858*^9, 
   3.4341189355665607`*^9}, 3.434119313614493*^9, {3.434121553566028*^9, 
   3.43412155439117*^9}, {3.434121836967801*^9, 3.434121876648406*^9}, 
   3.434121990600216*^9, 3.434122218579628*^9, 3.434123439370544*^9, 
   3.434274602949483*^9, {3.466953654301529*^9, 3.466953663666408*^9}, 
   3.467391391410309*^9, {3.467460824909945*^9, 3.467460833400572*^9}, {
   3.467460906515904*^9, 3.4674609424679213`*^9}, {3.467461001105048*^9, 
   3.4674610644021463`*^9}, {3.4674833854417887`*^9, 3.467483395334813*^9}, {
   3.467579426101071*^9, 3.4675794282665577`*^9}, {3.467579458834546*^9, 
   3.467579460560563*^9}}],

Cell["\<\
(* High precision solver *)
sol = SolveFree[fsys, simDuration, MakeRules -> {Location, Velocity, \
Acceleration},
   ConstraintCorrection -> True,
   MaxError -> 10^-7,
   Method -> Corrector,
   FitDegree -> Quadratic,
   MaxSteps -> 5000];\
\>", "Text",
 CellChangeTimes->{{3.434110714439767*^9, 3.434110722118281*^9}, {
   3.434111265924449*^9, 3.434111266010551*^9}, {3.4341134794646263`*^9, 
   3.434113479767232*^9}, {3.434113973249895*^9, 3.4341140061305857`*^9}, {
   3.434114098121132*^9, 3.434114098615354*^9}, {3.434114166759571*^9, 
   3.4341141669368353`*^9}, {3.434114214079558*^9, 3.434114226354653*^9}, {
   3.434114446316066*^9, 3.43411444680991*^9}, {3.4341147802121553`*^9, 
   3.434114792660252*^9}, 3.4341178207341223`*^9, {3.43411893264858*^9, 
   3.4341189355665607`*^9}, 3.434119313614493*^9, {3.434121553566028*^9, 
   3.43412155439117*^9}, {3.434121836967801*^9, 3.434121876648406*^9}, 
   3.434121990600216*^9, 3.434122218579628*^9, 3.434123439370544*^9, 
   3.434274602949483*^9, {3.466953654301529*^9, 3.466953663666408*^9}, 
   3.467391391410309*^9, {3.467460824909945*^9, 3.467460833400572*^9}, {
   3.467460906515904*^9, 3.4674609424679213`*^9}, {3.467461001105048*^9, 
   3.467461042089189*^9}, {3.467461144016453*^9, 3.467461152468639*^9}, {
   3.467461232884074*^9, 3.467461283773856*^9}, {3.467461331114501*^9, 
   3.4674613336645107`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Simulation diagnostics (for debugging)", "Subsection",
 CellChangeTimes->{{3.434120615330065*^9, 3.434120626854775*^9}, {
  3.435426839056003*^9, 3.4354268473996553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Constraints", "[", "1", "]"}], "/.", "sol"}], "\n", 
 RowBox[{
  RowBox[{"Constraints", "[", "3", "]"}], "/.", 
  "sol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Constraints", "[", "4", "]"}], "/.", "sol"}]}], "Input",
 CellChangeTimes->{{3.4341104449475937`*^9, 3.4341104729541883`*^9}, {
  3.434120587703637*^9, 3.434120591943199*^9}, {3.434125056814822*^9, 
  3.4341250720547037`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.434110431951111*^9, 3.434110454202814*^9}, 
   3.43411075902142*^9, 3.434110967855811*^9, 3.434111236282237*^9, 
   3.434113512150239*^9, 3.4341139921943913`*^9, 3.434114086330048*^9, 
   3.4341141724356422`*^9, 3.434114236132615*^9, 3.434114279024781*^9, 
   3.434114432329094*^9, 3.434114750492921*^9, 3.434116589515553*^9, 
   3.434116646060573*^9, 3.434117796882786*^9, {3.434118007971463*^9, 
   3.43411801933004*^9}, 3.43411881323666*^9, {3.4341191186406527`*^9, 
   3.434119134386747*^9}, 3.4341201259259872`*^9, {3.4341201648929653`*^9, 
   3.434120170648033*^9}, 3.434120287594252*^9, 3.434120594244836*^9, 
   3.43412083868734*^9, 3.434121039876391*^9, 3.434121276929411*^9, {
   3.4341213531756153`*^9, 3.434121368356018*^9}, 3.434122222941553*^9, 
   3.434123213247794*^9, 3.434123443322116*^9, 3.43412503467489*^9, {
   3.434125072697398*^9, 3.434125082977347*^9}, 3.4341251214600067`*^9, 
   3.434125226494369*^9, 3.434132449537163*^9, 3.43413325829112*^9, 
   3.4341332889666862`*^9, 3.434133385461793*^9, 3.4341987865886307`*^9, 
   3.434230104263462*^9, 3.434230940093767*^9, 3.434274345216651*^9, 
   3.434274425997669*^9, 3.4342755553023567`*^9, 3.4342811773226633`*^9, 
   3.434281393601799*^9, 3.435344654567807*^9, 3.435422597614531*^9, 
   3.435422790688212*^9, 3.4354235838209887`*^9, 3.43542372440938*^9, 
   3.435424042983329*^9, 3.4354242541574907`*^9, 3.4576909224979153`*^9, 
   3.457692906468399*^9, {3.457710597376452*^9, 3.4577106217704983`*^9}, 
   3.466770580953483*^9, 3.466793442683093*^9, {3.4668526972065153`*^9, 
   3.466852725046249*^9}, {3.4668536544617453`*^9, 3.466853668039753*^9}, 
   3.466854891067947*^9, 3.466856463770854*^9, 3.466950639999337*^9, 
   3.466950793124811*^9, 3.466950977810349*^9, 3.4669512530706587`*^9, 
   3.466951728752119*^9, 3.4669522830661993`*^9, 3.46695282522167*^9, 
   3.466958986668727*^9, 3.466960318478965*^9, 3.466960749862349*^9, 
   3.466961327396209*^9, 3.466964690551461*^9, 3.467033544159347*^9, 
   3.467034059598537*^9, 3.46703484664695*^9, 3.4670491442854643`*^9, 
   3.467049824572978*^9, 3.467049884934038*^9, 3.4670502834032717`*^9, 
   3.467050613959227*^9, 3.467051566955846*^9, 3.467131110487433*^9, 
   3.4671311569707527`*^9, 3.4671316127996407`*^9, 3.467391033884428*^9, {
   3.467391857170616*^9, 3.467391865716749*^9}, 3.467392041951816*^9, {
   3.467393325145487*^9, 3.467393334522305*^9}, 3.467393369849552*^9, 
   3.4673938888971577`*^9, 3.46739639968161*^9, 3.4673967095152607`*^9, 
   3.467397416619813*^9, 3.46739777742073*^9, 3.4673992476810217`*^9, 
   3.467399376838057*^9, {3.467400220840755*^9, 3.467400225466991*^9}, 
   3.4674019648042803`*^9, 3.467402269281715*^9, 3.467403311230784*^9, 
   3.4674586066592283`*^9, 3.467458855549779*^9, 3.467460880300338*^9, {
   3.4674609345119047`*^9, 3.467460950409031*^9}, 3.46746101622926*^9, 
   3.4674611599268303`*^9, {3.4674612457263308`*^9, 3.467461292621077*^9}, 
   3.467461469353928*^9, 3.467462288838394*^9, 3.4674623322954273`*^9, 
   3.467462395084612*^9, 3.467464342994376*^9, 3.467467137379044*^9, 
   3.4674786056391478`*^9, 3.467479590979027*^9, 3.467480320165325*^9, 
   3.4674804495739193`*^9, 3.467480796634871*^9, 3.467480828743485*^9, 
   3.467482812917976*^9, 3.46748305692026*^9, 3.467483487810876*^9, 
   3.467483523171208*^9, 3.467483570147081*^9, 3.467483689437725*^9, {
   3.467579269154887*^9, 3.467579321664196*^9}, 3.467579473404196*^9, 
   3.4675806731716022`*^9, 3.467581507869007*^9, 3.46758154626392*^9, 
   3.4675827446932364`*^9, 3.467583055211939*^9, 3.467583090145647*^9, 
   3.4675834785675697`*^9, 3.4675840833982973`*^9, 3.467584148541562*^9, 
   3.4675842514367456`*^9, 3.4675843217820787`*^9, 3.4675844762148867`*^9, {
   3.467584611378463*^9, 3.467584639484964*^9}, {3.46758467760471*^9, 
   3.467584699518448*^9}, 3.467584730569063*^9, 3.467584808157257*^9, 
   3.467632232134191*^9, 3.4676323678355618`*^9, {3.467632433215766*^9, 
   3.4676324759932756`*^9}, 3.4676325326768303`*^9, 3.467652528479917*^9, 
   3.4685901213266153`*^9, 3.4685935410534973`*^9, 3.468593954232215*^9, 
   3.468594453330613*^9, {3.468594514619244*^9, 3.468594539671068*^9}, 
   3.4685946704658127`*^9, 3.468594719446164*^9, 3.4686737376064653`*^9, 
   3.4686738011286383`*^9, 3.468673836467853*^9, 3.4686739553051243`*^9, 
   3.468675314032394*^9, 3.468678415019478*^9, 3.468678537007374*^9, {
   3.468678766582458*^9, 3.468678782220169*^9}, 3.46919324707701*^9, 
   3.4691934117136803`*^9, 3.469193720340205*^9, 3.469193763221312*^9, 
   3.469193823900241*^9, 3.469194030754366*^9, 3.469479981307996*^9, 
   3.469480040588338*^9, 3.500842626716588*^9, 3.5008430374542294`*^9, 
   3.500843276778967*^9, 3.500845810761468*^9, 3.5008461020938463`*^9, 
   3.500847187806999*^9, 3.500847330019435*^9, 3.5008477418997297`*^9, 
   3.500848149112112*^9, 3.5008984646069927`*^9, 3.500898577815322*^9, 
   3.500900567572796*^9, 3.5043618174941587`*^9, 3.504362921157227*^9, 
   3.5043654553332376`*^9, 3.50436553323282*^9, 3.504365709963155*^9, 
   3.504365956183836*^9, 3.504366020801352*^9, 3.504366281852385*^9, 
   3.504366422326436*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "0.613348216314652`"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "+", 
    RowBox[{"0.12012062913436157`", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "+", 
    RowBox[{
     TagBox[
      RowBox[{"InterpolatingFunction", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
       "]"}],
      False,
      Editable->False], "[", "T", "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "0.12012062913436157`"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "-", 
    RowBox[{"0.613348216314652`", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "+", 
    RowBox[{
     TagBox[
      RowBox[{"InterpolatingFunction", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
       "]"}],
      False,
      Editable->False], "[", "T", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.434110431951111*^9, 3.434110454202814*^9}, 
   3.43411075902142*^9, 3.434110967855811*^9, 3.434111236282237*^9, 
   3.434113512150239*^9, 3.4341139921943913`*^9, 3.434114086330048*^9, 
   3.4341141724356422`*^9, 3.434114236132615*^9, 3.434114279024781*^9, 
   3.434114432329094*^9, 3.434114750492921*^9, 3.434116589515553*^9, 
   3.434116646060573*^9, 3.434117796882786*^9, {3.434118007971463*^9, 
   3.43411801933004*^9}, 3.43411881323666*^9, {3.4341191186406527`*^9, 
   3.434119134386747*^9}, 3.4341201259259872`*^9, {3.4341201648929653`*^9, 
   3.434120170648033*^9}, 3.434120287594252*^9, 3.434120594244836*^9, 
   3.43412083868734*^9, 3.434121039876391*^9, 3.434121276929411*^9, {
   3.4341213531756153`*^9, 3.434121368356018*^9}, 3.434122222941553*^9, 
   3.434123213247794*^9, 3.434123443322116*^9, 3.43412503467489*^9, {
   3.434125072697398*^9, 3.434125082977347*^9}, 3.4341251214600067`*^9, 
   3.434125226494369*^9, 3.434132449537163*^9, 3.43413325829112*^9, 
   3.4341332889666862`*^9, 3.434133385461793*^9, 3.4341987865886307`*^9, 
   3.434230104263462*^9, 3.434230940093767*^9, 3.434274345216651*^9, 
   3.434274425997669*^9, 3.4342755553023567`*^9, 3.4342811773226633`*^9, 
   3.434281393601799*^9, 3.435344654567807*^9, 3.435422597614531*^9, 
   3.435422790688212*^9, 3.4354235838209887`*^9, 3.43542372440938*^9, 
   3.435424042983329*^9, 3.4354242541574907`*^9, 3.4576909224979153`*^9, 
   3.457692906468399*^9, {3.457710597376452*^9, 3.4577106217704983`*^9}, 
   3.466770580953483*^9, 3.466793442683093*^9, {3.4668526972065153`*^9, 
   3.466852725046249*^9}, {3.4668536544617453`*^9, 3.466853668039753*^9}, 
   3.466854891067947*^9, 3.466856463770854*^9, 3.466950639999337*^9, 
   3.466950793124811*^9, 3.466950977810349*^9, 3.4669512530706587`*^9, 
   3.466951728752119*^9, 3.4669522830661993`*^9, 3.46695282522167*^9, 
   3.466958986668727*^9, 3.466960318478965*^9, 3.466960749862349*^9, 
   3.466961327396209*^9, 3.466964690551461*^9, 3.467033544159347*^9, 
   3.467034059598537*^9, 3.46703484664695*^9, 3.4670491442854643`*^9, 
   3.467049824572978*^9, 3.467049884934038*^9, 3.4670502834032717`*^9, 
   3.467050613959227*^9, 3.467051566955846*^9, 3.467131110487433*^9, 
   3.4671311569707527`*^9, 3.4671316127996407`*^9, 3.467391033884428*^9, {
   3.467391857170616*^9, 3.467391865716749*^9}, 3.467392041951816*^9, {
   3.467393325145487*^9, 3.467393334522305*^9}, 3.467393369849552*^9, 
   3.4673938888971577`*^9, 3.46739639968161*^9, 3.4673967095152607`*^9, 
   3.467397416619813*^9, 3.46739777742073*^9, 3.4673992476810217`*^9, 
   3.467399376838057*^9, {3.467400220840755*^9, 3.467400225466991*^9}, 
   3.4674019648042803`*^9, 3.467402269281715*^9, 3.467403311230784*^9, 
   3.4674586066592283`*^9, 3.467458855549779*^9, 3.467460880300338*^9, {
   3.4674609345119047`*^9, 3.467460950409031*^9}, 3.46746101622926*^9, 
   3.4674611599268303`*^9, {3.4674612457263308`*^9, 3.467461292621077*^9}, 
   3.467461469353928*^9, 3.467462288838394*^9, 3.4674623322954273`*^9, 
   3.467462395084612*^9, 3.467464342994376*^9, 3.467467137379044*^9, 
   3.4674786056391478`*^9, 3.467479590979027*^9, 3.467480320165325*^9, 
   3.4674804495739193`*^9, 3.467480796634871*^9, 3.467480828743485*^9, 
   3.467482812917976*^9, 3.46748305692026*^9, 3.467483487810876*^9, 
   3.467483523171208*^9, 3.467483570147081*^9, 3.467483689437725*^9, {
   3.467579269154887*^9, 3.467579321664196*^9}, 3.467579473404196*^9, 
   3.4675806731716022`*^9, 3.467581507869007*^9, 3.46758154626392*^9, 
   3.4675827446932364`*^9, 3.467583055211939*^9, 3.467583090145647*^9, 
   3.4675834785675697`*^9, 3.4675840833982973`*^9, 3.467584148541562*^9, 
   3.4675842514367456`*^9, 3.4675843217820787`*^9, 3.4675844762148867`*^9, {
   3.467584611378463*^9, 3.467584639484964*^9}, {3.46758467760471*^9, 
   3.467584699518448*^9}, 3.467584730569063*^9, 3.467584808157257*^9, 
   3.467632232134191*^9, 3.4676323678355618`*^9, {3.467632433215766*^9, 
   3.4676324759932756`*^9}, 3.4676325326768303`*^9, 3.467652528479917*^9, 
   3.4685901213266153`*^9, 3.4685935410534973`*^9, 3.468593954232215*^9, 
   3.468594453330613*^9, {3.468594514619244*^9, 3.468594539671068*^9}, 
   3.4685946704658127`*^9, 3.468594719446164*^9, 3.4686737376064653`*^9, 
   3.4686738011286383`*^9, 3.468673836467853*^9, 3.4686739553051243`*^9, 
   3.468675314032394*^9, 3.468678415019478*^9, 3.468678537007374*^9, {
   3.468678766582458*^9, 3.468678782220169*^9}, 3.46919324707701*^9, 
   3.4691934117136803`*^9, 3.469193720340205*^9, 3.469193763221312*^9, 
   3.469193823900241*^9, 3.469194030754366*^9, 3.469479981307996*^9, 
   3.469480040588338*^9, 3.500842626716588*^9, 3.5008430374542294`*^9, 
   3.500843276778967*^9, 3.500845810761468*^9, 3.5008461020938463`*^9, 
   3.500847187806999*^9, 3.500847330019435*^9, 3.5008477418997297`*^9, 
   3.500848149112112*^9, 3.5008984646069927`*^9, 3.500898577815322*^9, 
   3.500900567572796*^9, 3.5043618174941587`*^9, 3.504362921157227*^9, 
   3.5043654553332376`*^9, 3.50436553323282*^9, 3.504365709963155*^9, 
   3.504365956183836*^9, 3.504366020801352*^9, 3.504366281852385*^9, 
   3.50436642232804*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.2469444444444444`"}], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"0.0026790695144810056`", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{"0.07078265110638138`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}]}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0.07078265110638138`", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{"0.0026790695144810056`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "6.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}]}], ")"}], "2"]}], "}"}]], "Output",
 CellChangeTimes->{{3.434110431951111*^9, 3.434110454202814*^9}, 
   3.43411075902142*^9, 3.434110967855811*^9, 3.434111236282237*^9, 
   3.434113512150239*^9, 3.4341139921943913`*^9, 3.434114086330048*^9, 
   3.4341141724356422`*^9, 3.434114236132615*^9, 3.434114279024781*^9, 
   3.434114432329094*^9, 3.434114750492921*^9, 3.434116589515553*^9, 
   3.434116646060573*^9, 3.434117796882786*^9, {3.434118007971463*^9, 
   3.43411801933004*^9}, 3.43411881323666*^9, {3.4341191186406527`*^9, 
   3.434119134386747*^9}, 3.4341201259259872`*^9, {3.4341201648929653`*^9, 
   3.434120170648033*^9}, 3.434120287594252*^9, 3.434120594244836*^9, 
   3.43412083868734*^9, 3.434121039876391*^9, 3.434121276929411*^9, {
   3.4341213531756153`*^9, 3.434121368356018*^9}, 3.434122222941553*^9, 
   3.434123213247794*^9, 3.434123443322116*^9, 3.43412503467489*^9, {
   3.434125072697398*^9, 3.434125082977347*^9}, 3.4341251214600067`*^9, 
   3.434125226494369*^9, 3.434132449537163*^9, 3.43413325829112*^9, 
   3.4341332889666862`*^9, 3.434133385461793*^9, 3.4341987865886307`*^9, 
   3.434230104263462*^9, 3.434230940093767*^9, 3.434274345216651*^9, 
   3.434274425997669*^9, 3.4342755553023567`*^9, 3.4342811773226633`*^9, 
   3.434281393601799*^9, 3.435344654567807*^9, 3.435422597614531*^9, 
   3.435422790688212*^9, 3.4354235838209887`*^9, 3.43542372440938*^9, 
   3.435424042983329*^9, 3.4354242541574907`*^9, 3.4576909224979153`*^9, 
   3.457692906468399*^9, {3.457710597376452*^9, 3.4577106217704983`*^9}, 
   3.466770580953483*^9, 3.466793442683093*^9, {3.4668526972065153`*^9, 
   3.466852725046249*^9}, {3.4668536544617453`*^9, 3.466853668039753*^9}, 
   3.466854891067947*^9, 3.466856463770854*^9, 3.466950639999337*^9, 
   3.466950793124811*^9, 3.466950977810349*^9, 3.4669512530706587`*^9, 
   3.466951728752119*^9, 3.4669522830661993`*^9, 3.46695282522167*^9, 
   3.466958986668727*^9, 3.466960318478965*^9, 3.466960749862349*^9, 
   3.466961327396209*^9, 3.466964690551461*^9, 3.467033544159347*^9, 
   3.467034059598537*^9, 3.46703484664695*^9, 3.4670491442854643`*^9, 
   3.467049824572978*^9, 3.467049884934038*^9, 3.4670502834032717`*^9, 
   3.467050613959227*^9, 3.467051566955846*^9, 3.467131110487433*^9, 
   3.4671311569707527`*^9, 3.4671316127996407`*^9, 3.467391033884428*^9, {
   3.467391857170616*^9, 3.467391865716749*^9}, 3.467392041951816*^9, {
   3.467393325145487*^9, 3.467393334522305*^9}, 3.467393369849552*^9, 
   3.4673938888971577`*^9, 3.46739639968161*^9, 3.4673967095152607`*^9, 
   3.467397416619813*^9, 3.46739777742073*^9, 3.4673992476810217`*^9, 
   3.467399376838057*^9, {3.467400220840755*^9, 3.467400225466991*^9}, 
   3.4674019648042803`*^9, 3.467402269281715*^9, 3.467403311230784*^9, 
   3.4674586066592283`*^9, 3.467458855549779*^9, 3.467460880300338*^9, {
   3.4674609345119047`*^9, 3.467460950409031*^9}, 3.46746101622926*^9, 
   3.4674611599268303`*^9, {3.4674612457263308`*^9, 3.467461292621077*^9}, 
   3.467461469353928*^9, 3.467462288838394*^9, 3.4674623322954273`*^9, 
   3.467462395084612*^9, 3.467464342994376*^9, 3.467467137379044*^9, 
   3.4674786056391478`*^9, 3.467479590979027*^9, 3.467480320165325*^9, 
   3.4674804495739193`*^9, 3.467480796634871*^9, 3.467480828743485*^9, 
   3.467482812917976*^9, 3.46748305692026*^9, 3.467483487810876*^9, 
   3.467483523171208*^9, 3.467483570147081*^9, 3.467483689437725*^9, {
   3.467579269154887*^9, 3.467579321664196*^9}, 3.467579473404196*^9, 
   3.4675806731716022`*^9, 3.467581507869007*^9, 3.46758154626392*^9, 
   3.4675827446932364`*^9, 3.467583055211939*^9, 3.467583090145647*^9, 
   3.4675834785675697`*^9, 3.4675840833982973`*^9, 3.467584148541562*^9, 
   3.4675842514367456`*^9, 3.4675843217820787`*^9, 3.4675844762148867`*^9, {
   3.467584611378463*^9, 3.467584639484964*^9}, {3.46758467760471*^9, 
   3.467584699518448*^9}, 3.467584730569063*^9, 3.467584808157257*^9, 
   3.467632232134191*^9, 3.4676323678355618`*^9, {3.467632433215766*^9, 
   3.4676324759932756`*^9}, 3.4676325326768303`*^9, 3.467652528479917*^9, 
   3.4685901213266153`*^9, 3.4685935410534973`*^9, 3.468593954232215*^9, 
   3.468594453330613*^9, {3.468594514619244*^9, 3.468594539671068*^9}, 
   3.4685946704658127`*^9, 3.468594719446164*^9, 3.4686737376064653`*^9, 
   3.4686738011286383`*^9, 3.468673836467853*^9, 3.4686739553051243`*^9, 
   3.468675314032394*^9, 3.468678415019478*^9, 3.468678537007374*^9, {
   3.468678766582458*^9, 3.468678782220169*^9}, 3.46919324707701*^9, 
   3.4691934117136803`*^9, 3.469193720340205*^9, 3.469193763221312*^9, 
   3.469193823900241*^9, 3.469194030754366*^9, 3.469479981307996*^9, 
   3.469480040588338*^9, 3.500842626716588*^9, 3.5008430374542294`*^9, 
   3.500843276778967*^9, 3.500845810761468*^9, 3.5008461020938463`*^9, 
   3.500847187806999*^9, 3.500847330019435*^9, 3.5008477418997297`*^9, 
   3.500848149112112*^9, 3.5008984646069927`*^9, 3.500898577815322*^9, 
   3.500900567572796*^9, 3.5043618174941587`*^9, 3.504362921157227*^9, 
   3.5043654553332376`*^9, 3.50436553323282*^9, 3.504365709963155*^9, 
   3.504365956183836*^9, 3.504366020801352*^9, 3.504366281852385*^9, 
   3.50436642232935*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StepMech", "[", "]"}]], "Input",
 CellChangeTimes->{{3.434281628426093*^9, 3.434281657389073*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"X2", "\[Rule]", "0.`"}], ",", 
   RowBox[{"Y2", "\[Rule]", "0.`"}], ",", 
   RowBox[{"\[CapitalTheta]2", "\[Rule]", "0.`"}], ",", 
   RowBox[{"X3", "\[Rule]", "0.613348216314652`"}], ",", 
   RowBox[{"Y3", "\[Rule]", "0.12012062913436157`"}], ",", 
   RowBox[{"\[CapitalTheta]3", "\[Rule]", "0.`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.43428165794129*^9, 3.43534465460007*^9, 3.435422597696198*^9, 
   3.435422790795402*^9, 3.435423583905724*^9, 3.435423724436681*^9, 
   3.4354240430170717`*^9, 3.43542425419147*^9, 3.457690922531358*^9, 
   3.45769290654318*^9, {3.457710597408039*^9, 3.45771062188163*^9}, 
   3.466770581019473*^9, 3.466793442734029*^9, {3.466852697287552*^9, 
   3.466852725127425*^9}, {3.46685365461147*^9, 3.46685366815838*^9}, 
   3.466854891120466*^9, 3.466856463808853*^9, 3.466950640158692*^9, 
   3.466950793204998*^9, 3.4669509779096193`*^9, 3.466951253119183*^9, 
   3.466951728851307*^9, 3.4669522830971823`*^9, 3.4669528252555323`*^9, 
   3.466958986725794*^9, 3.466960318528307*^9, 3.466960749901307*^9, 
   3.466961327430833*^9, 3.466964690590335*^9, 3.467033544262871*^9, 
   3.4670340597652807`*^9, 3.467034846771422*^9, 3.4670491443247843`*^9, 
   3.467049824614612*^9, 3.467049884965107*^9, 3.46705028348386*^9, 
   3.467050614076709*^9, 3.467051567004361*^9, 3.467131110517221*^9, 
   3.46713115704571*^9, 3.4671316128336887`*^9, 3.46739103438384*^9, {
   3.467391857212055*^9, 3.467391865857123*^9}, 3.4673920419817123`*^9, {
   3.467393325177964*^9, 3.467393334572611*^9}, 3.4673933698808804`*^9, 
   3.467393888926437*^9, 3.46739639972268*^9, 3.467396709778988*^9, 
   3.467397416667294*^9, 3.4673977774549932`*^9, 3.467399247731529*^9, 
   3.467399376886923*^9, {3.467400220890757*^9, 3.467400225506568*^9}, 
   3.46740196490005*^9, 3.4674022693160057`*^9, 3.4674033112627563`*^9, 
   3.4674586068305817`*^9, 3.467458855601264*^9, 3.467460880345216*^9, {
   3.467460934556673*^9, 3.467460950453432*^9}, 3.467461016269969*^9, 
   3.4674611599755287`*^9, {3.4674612457935963`*^9, 3.467461292682378*^9}, 
   3.4674614693992023`*^9, 3.467462288890129*^9, 3.4674623323434896`*^9, 
   3.4674623951668587`*^9, 3.467464343041556*^9, 3.467467137461046*^9, 
   3.467478605672412*^9, 3.467479591017424*^9, 3.467480320235594*^9, 
   3.4674804496495256`*^9, 3.4674807967478533`*^9, 3.467480828818522*^9, 
   3.4674828129680023`*^9, 3.4674830569705353`*^9, 3.4674834878610277`*^9, 
   3.467483523222706*^9, 3.4674835701919327`*^9, 3.4674836894765997`*^9, {
   3.467579269185773*^9, 3.467579321715527*^9}, 3.467579473565802*^9, 
   3.467580673215955*^9, 3.467581507907982*^9, 3.467581546305722*^9, 
   3.467582744731979*^9, 3.467583055257756*^9, 3.467583090184332*^9, 
   3.467583478606579*^9, 3.4675840834407873`*^9, 3.467584148578239*^9, 
   3.4675842514790983`*^9, 3.46758432185963*^9, 3.4675844762485456`*^9, {
   3.467584611428028*^9, 3.467584639516877*^9}, {3.4675846777013273`*^9, 
   3.467584699566875*^9}, 3.467584730609425*^9, 3.467584808190826*^9, 
   3.467632232186233*^9, 3.467632367887401*^9, {3.467632433268859*^9, 
   3.467632476044342*^9}, 3.46763253278426*^9, 3.46765252867439*^9, 
   3.4685901213643017`*^9, 3.468593541280244*^9, 3.468593954272146*^9, 
   3.4685944533981867`*^9, {3.468594514717662*^9, 3.4685945397580967`*^9}, 
   3.4685946705034924`*^9, 3.468594719553852*^9, 3.4686737376388903`*^9, 
   3.468673801198419*^9, 3.468673836551804*^9, 3.468673955450479*^9, 
   3.468675314131731*^9, 3.468678415067438*^9, 3.4686785370629*^9, {
   3.468678766637308*^9, 3.468678782275749*^9}, 3.46919324716333*^9, 
   3.469193411768434*^9, 3.469193720481531*^9, 3.469193763274591*^9, 
   3.4691938239938917`*^9, 3.4691940308287697`*^9, 3.469479981356893*^9, 
   3.469480040764833*^9, 3.500842626805381*^9, 3.500843037566103*^9, 
   3.500843276846747*^9, 3.5008458108509274`*^9, 3.500846102284801*^9, 
   3.500847187916815*^9, 3.5008473301403303`*^9, 3.500847741942766*^9, 
   3.5008481491705647`*^9, 3.500898465070031*^9, 3.5008985779164343`*^9, 
   3.500900567626698*^9, 3.5043618175323057`*^9, 3.50436292125738*^9, 
   3.504365455409177*^9, 3.5043655333079567`*^9, 3.504365710098426*^9, 
   3.504365956240388*^9, 3.50436602091826*^9, 3.504366281928814*^9, 
   3.504366422385602*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Loads", "[", 
   RowBox[{"dactyl", ",", 
    RowBox[{"Coordinates", "\[Rule]", "Global"}]}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.434118635441654*^9, 3.434118641222836*^9}, {
  3.4342755731600637`*^9, 3.434275583590617*^9}, {3.4670352271761723`*^9, 
  3.467035229383644*^9}, {3.467035321044684*^9, 3.467035370387512*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mech", "::", "\<\"nobody\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Body number \\!\\(4\\) is not present in the current \
system.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.504362921356529*^9, 3.504365455458147*^9, 
  3.5043655333410473`*^9, 3.504365710159144*^9, 3.5043659562759533`*^9, 
  3.5043660209618683`*^9, 3.504366281966856*^9, 3.504366422436678*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Loads", "::", "\<\"argmbmso\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Loads called with invalid arguments. Loads[bnum, options] \
or\\nLoads[symbol, options] is expected. Body numbers are specified by \
positive integers. \"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.504362921356529*^9, 3.504365455458147*^9, 
  3.5043655333410473`*^9, 3.504365710159144*^9, 3.5043659562759533`*^9, 
  3.5043660209618683`*^9, 3.504366281966856*^9, 3.504366422437742*^9}],

Cell[BoxData[
 RowBox[{"Coordinates", "\[Rule]", "Global"}]], "Output",
 CellChangeTimes->{
  3.467049144369076*^9, 3.467049824696203*^9, 3.467049884992894*^9, 
   3.467050283525928*^9, 3.467050614102335*^9, 3.467051567037212*^9, 
   3.467131110617284*^9, 3.467131157112112*^9, 3.467131612905282*^9, 
   3.467391034491617*^9, {3.467391857395657*^9, 3.467391865878669*^9}, 
   3.467392042015276*^9, {3.467393325400866*^9, 3.4673933346218643`*^9}, 
   3.467393369886737*^9, 3.46739388896014*^9, 3.4673963997678137`*^9, 
   3.4673967098453217`*^9, 3.467397416696292*^9, 3.4673977775013227`*^9, 
   3.467399247783388*^9, 3.467399376920022*^9, {3.4674002209711437`*^9, 
   3.4674002255402937`*^9}, 3.467401964999112*^9, 3.467402269498292*^9, 
   3.467403311308318*^9, 3.467458606874577*^9, 3.4674588556415453`*^9, 
   3.467460880395355*^9, {3.467460934606966*^9, 3.467460950486367*^9}, 
   3.4674610163030643`*^9, 3.467461160004612*^9, {3.467461245842759*^9, 
   3.4674612927275333`*^9}, 3.467461469433198*^9, 3.4674622889439898`*^9, 
   3.467462332475205*^9, 3.467462395216113*^9, 3.467464343125599*^9, 
   3.467467137555756*^9, 3.4674786058129787`*^9, 3.467479591050356*^9, 
   3.4674803202714663`*^9, 3.467480449699493*^9, 3.467480796796582*^9, 
   3.467480828859511*^9, 3.467482813014887*^9, 3.467483057042631*^9, 
   3.4674834879430027`*^9, 3.467483523260129*^9, 3.467483570197598*^9, 
   3.46748368952372*^9, {3.467579269238365*^9, 3.467579321739561*^9}, 
   3.46757947360534*^9, 3.467580673248712*^9, 3.467581507941317*^9, 
   3.4675815463478193`*^9, 3.467582744764962*^9, 3.467583055288569*^9, 
   3.4675830902191467`*^9, 3.467583478640696*^9, 3.467584083474903*^9, 
   3.467584148611475*^9, 3.467584251513694*^9, 3.467584321907454*^9, 
   3.467584476285782*^9, {3.4675846114764023`*^9, 3.467584639550186*^9}, {
   3.467584677748955*^9, 3.467584699600174*^9}, 3.46758473064297*^9, 
   3.467584808223666*^9, 3.467632232265585*^9, 3.46763236793106*^9, {
   3.467632433401367*^9, 3.4676324760880136`*^9}, 3.46763253282615*^9, 
   3.467652528724914*^9, 3.468590121426283*^9, 3.468593541312786*^9, 
   3.468593954317643*^9, 3.4685944534617863`*^9, {3.46859451480466*^9, 
   3.468594539827993*^9}, 3.4685946705351152`*^9, 3.46859471956562*^9, 
   3.468673737685843*^9, 3.4686738013068647`*^9, 3.4686738366690683`*^9, 
   3.468673955514727*^9, 3.468675314226194*^9, 3.468678415111189*^9, 
   3.468678537191201*^9, {3.468678766685223*^9, 3.468678782301807*^9}, 
   3.4691932472002687`*^9, 3.4691934119794493`*^9, 3.469193720529718*^9, 
   3.469193763321041*^9, 3.469193824040325*^9, 3.4691940308763247`*^9, 
   3.4694799813905067`*^9, 3.469480040814184*^9, 3.500842626846303*^9, 
   3.500843037619735*^9, 3.5008432768838577`*^9, 3.500845810897078*^9, 
   3.500846102513777*^9, 3.500847187981635*^9, 3.5008473301740026`*^9, 
   3.50084774199374*^9, 3.500848149239039*^9, 3.50089846522119*^9, 
   3.500898578021165*^9, 3.500900567676325*^9, 3.504361817567218*^9, 
   3.50436292147484*^9, 3.504365455459922*^9, 3.504365533342985*^9, 
   3.504365710160941*^9, 3.5043659562777243`*^9, 3.5043660209635897`*^9, 
   3.5043662819688873`*^9, 3.5043664224386797`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Loads", "[", 
     RowBox[{"carpus", ",", 
      RowBox[{"Coordinates", "\[Rule]", "Global"}]}], "]"}], ")"}], "/.", 
   "sol"}], "/.", 
  RowBox[{"{", 
   RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}]], "Input",
 CellChangeTimes->{
  3.434118641750947*^9, 3.434118813446292*^9, {3.434119118915028*^9, 
   3.4341191346436357`*^9}, 3.4341201261808233`*^9, {3.4341201650940332`*^9, 
   3.434120170698142*^9}, 3.4341202878648043`*^9, 3.4341208389762897`*^9, 
   3.434121039927581*^9, 3.434121277125565*^9, {3.434121353359943*^9, 
   3.434121368404491*^9}, 3.434122223008933*^9, 3.434123213298698*^9, 
   3.434123443575158*^9, 3.43412503471758*^9, 3.4341250830105743`*^9, 
   3.4341251217441*^9, 3.434125226563201*^9, 3.4341324495748453`*^9, 
   3.434133258327765*^9, 3.434133289062429*^9, 3.434133385503139*^9, 
   3.434198786619525*^9, 3.434230104470717*^9, 3.434230940131365*^9, 
   3.434274345279913*^9, 3.434274426063694*^9, {3.4342755554656076`*^9, 
   3.434275584129908*^9}, 3.4342811774507523`*^9, 3.434281393787081*^9, 
   3.435344654617053*^9, 3.43542259773344*^9, 3.435422790863158*^9, 
   3.435423583948803*^9, 3.435423724469688*^9, 3.435424043062779*^9, 
   3.435424254225328*^9, 3.4576909225464354`*^9, 3.4576929065866632`*^9, {
   3.4577105974431458`*^9, 3.457710621963805*^9}, 3.466770581055414*^9, 
   3.466793442771776*^9, {3.4668526974021387`*^9, 3.46685272518417*^9}, {
   3.466853654653673*^9, 3.466853668206661*^9}, 3.4668548911704397`*^9, 
   3.466856463864398*^9, 3.466950640238985*^9, 3.46695079331633*^9, 
   3.466950977984675*^9, 3.466951253162499*^9, 3.466951728951418*^9, 
   3.466952283141458*^9, 3.466952825307151*^9, 3.4669589867752028`*^9, 
   3.4669603187379513`*^9, 3.466960749935206*^9, 3.466961327512342*^9, 
   3.46696469063351*^9, 3.467033544362871*^9, 3.467034059830654*^9, 
   3.4670348468590317`*^9, 3.4670352308083363`*^9, {3.467035332836403*^9, 
   3.467035370812681*^9}, {3.46703540238278*^9, 3.467035471709215*^9}, {
   3.467035576804089*^9, 3.467035596357657*^9}, {3.467035735435442*^9, 
   3.467035735786414*^9}, {3.467035814054837*^9, 3.467035815326768*^9}, {
   3.4670358688102913`*^9, 3.467035869481512*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.467035409975294*^9, 3.467035472467094*^9}, {
   3.467035582134354*^9, 3.467035597432651*^9}, 3.467035738081585*^9, 
   3.467035816076559*^9, 3.467035870338977*^9, 3.4670491444689302`*^9, 
   3.467049824731453*^9, 3.46704988502817*^9, 3.46705028355765*^9, 
   3.4670506141426973`*^9, 3.4670515670915413`*^9, 3.467131110650003*^9, 
   3.467131157178784*^9, 3.467131613116197*^9, 3.4673910346173363`*^9, {
   3.467391857471117*^9, 3.4673918659140167`*^9}, 3.467392042082109*^9, {
   3.467393325445889*^9, 3.4673933346720867`*^9}, 3.4673933699470177`*^9, 
   3.467393889014449*^9, 3.467396399826268*^9, 3.467396709878937*^9, 
   3.467397416751007*^9, 3.467397777550715*^9, 3.4673992478343763`*^9, 
   3.467399376975793*^9, {3.467400221014626*^9, 3.467400225594651*^9}, 
   3.467401965047556*^9, 3.4674022695507174`*^9, 3.467403311362626*^9, 
   3.467458606908091*^9, 3.467458855676762*^9, 3.467460880445528*^9, {
   3.467460934657359*^9, 3.467460950536252*^9}, 3.46746101635773*^9, 
   3.467461160058585*^9, {3.467461245967545*^9, 3.467461292782968*^9}, 
   3.4674614694958267`*^9, 3.467462288994947*^9, 3.467462332569416*^9, 
   3.467462395301447*^9, 3.467464343165485*^9, 3.467467137620482*^9, 
   3.467478605849162*^9, 3.4674795910975533`*^9, 3.46748032032535*^9, 
   3.467480449749506*^9, 3.467480796848833*^9, 3.4674808289131737`*^9, 
   3.467482813067923*^9, 3.467483057108829*^9, 3.4674834880329533`*^9, 
   3.467483523332652*^9, 3.467483570276889*^9, 3.4674836897364597`*^9, {
   3.467579269270226*^9, 3.467579321782433*^9}, 3.467579473638084*^9, 
   3.467580673282584*^9, 3.467581507972975*^9, 3.4675815465096607`*^9, 
   3.467582744850507*^9, 3.4675830553232317`*^9, 3.467583090305406*^9, 
   3.467583478741733*^9, 3.467584083508204*^9, 3.467584148796073*^9, 
   3.4675842515626793`*^9, 3.46758432193908*^9, 3.46758447631485*^9, {
   3.467584611515469*^9, 3.4675846397230663`*^9}, {3.467584677820321*^9, 
   3.4675846996828003`*^9}, 3.4675847307365417`*^9, 3.4675848082605553`*^9, 
   3.467632232308858*^9, 3.467632368014525*^9, {3.46763243345881*^9, 
   3.467632476220125*^9}, 3.4676325328580112`*^9, 3.467652528808927*^9, 
   3.468590121596936*^9, 3.468593541346487*^9, 3.46859395436694*^9, 
   3.468594453522937*^9, {3.468594514841934*^9, 3.468594539859765*^9}, 
   3.468594670577566*^9, 3.4685947196057243`*^9, 3.46867373773545*^9, 
   3.4686738013713217`*^9, 3.468673836723213*^9, 3.468673955564889*^9, 
   3.4686753142763777`*^9, 3.4686784152572412`*^9, 3.4686785372521667`*^9, {
   3.468678766722197*^9, 3.4686787823715353`*^9}, 3.469193247271989*^9, 
   3.469193412064856*^9, 3.4691937208144293`*^9, 3.469193763403307*^9, 
   3.469193824233758*^9, 3.469194030942752*^9, 3.469479981459847*^9, 
   3.469480040884811*^9, 3.500842626916387*^9, 3.500843037707552*^9, 
   3.500843276946672*^9, 3.500845810970805*^9, 3.500846102741228*^9, 
   3.500847188087079*^9, 3.500847330250618*^9, 3.500847742216339*^9, 
   3.500848149333342*^9, 3.500898465560114*^9, 3.500898578063608*^9, 
   3.500900567716716*^9, 3.504361817624515*^9, 3.504362921587929*^9, 
   3.504365455516017*^9, 3.504365533407687*^9, 3.504365710221262*^9, 
   3.504365956356679*^9, 3.504366021000041*^9, 3.5043662820123987`*^9, 
   3.504366422472554*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Draw bodies", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, 
   3.43411931361473*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"graph", " ", "=", " ", 
    RowBox[{"Graphics", "[", 
     RowBox[{
      RowBox[{"{", "\n", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "]"}], ",", " ", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"ground", ",", " ", "0", ",", " ", "1"}], "]"}], ",", 
            " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}]}], "]"}]}], "}"}], ",", " ", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "0.5", ",", " ", "0.5"}], "]"}], ",", " ", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"mV", ",", " ", "0", ",", " ", "1"}], "]"}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}]}], "]"}]}], "}"}], ",", " ", "\n", 
        RowBox[{"(*", "carpus1", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"carpus", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "carpus2", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"carpus", ",", "0", ",", "2"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "carpus3", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Vertex", "[", 
           RowBox[{"carpus", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "3"}], "}"}]}], "]"}]}], "}"}]}], "}"}], ",", 
      " ", "\n", 
      RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
      RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", 
      RowBox[{"GridLines", " ", "->", " ", "Automatic"}]}], "]"}]}], ";"}], 
  " "}]], "Code",
 CellChangeTimes->{{3.433851035046337*^9, 3.433851061655987*^9}, {
   3.433851516335149*^9, 3.433851597315585*^9}, {3.433851659336302*^9, 
   3.433851702498908*^9}, {3.4338517389721537`*^9, 3.433851743666876*^9}, {
   3.433851909847933*^9, 3.43385195935106*^9}, {3.433852097272633*^9, 
   3.433852113662279*^9}, {3.433852208970933*^9, 3.433852289948728*^9}, {
   3.4338523611892757`*^9, 3.433852382005128*^9}, {3.4338525019315434`*^9, 
   3.433852505611454*^9}, {3.433852548519116*^9, 3.433852567118351*^9}, {
   3.433853890206346*^9, 3.433853914108988*^9}, {3.4341037960587893`*^9, 
   3.434103826970894*^9}, {3.434110952909773*^9, 3.434110960037702*^9}, 
   3.434119313614814*^9, {3.434120488069234*^9, 3.4341204914729853`*^9}, {
   3.434120522845957*^9, 3.434120547998445*^9}, {3.4341208510142612`*^9, 
   3.434120853126833*^9}, {3.434131908505118*^9, 3.4341319107243853`*^9}, {
   3.43413333182621*^9, 3.434133374954295*^9}, {3.434133409398223*^9, 
   3.434133412020389*^9}, {3.434278459898829*^9, 3.434278470472405*^9}, {
   3.4342808828956823`*^9, 3.4342809038014708`*^9}, 3.434281151880027*^9, {
   3.434281190257429*^9, 3.434281253436264*^9}, {3.435422655738117*^9, 
   3.435422676049094*^9}, {3.466951994552917*^9, 3.466952050250649*^9}, {
   3.466952580592043*^9, 3.466952650220008*^9}, {3.504362749114709*^9, 
   3.5043627682470617`*^9}, {3.504362941034992*^9, 3.5043629430294456`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["EY"], "Input",
 CellChangeTimes->{{3.469194223511777*^9, 3.4691942557273197`*^9}, {
  3.4691943266943398`*^9, 3.4691943362991457`*^9}}],

Cell[BoxData["EY"], "Output",
 CellChangeTimes->{{3.4691942436434507`*^9, 3.469194256447839*^9}, {
   3.469194328779323*^9, 3.4691943367396927`*^9}, 3.469479981551126*^9, 
   3.469480041007525*^9, 3.500842626994205*^9, 3.500843037828249*^9, 
   3.500843277061387*^9, 3.500845811049334*^9, 3.500846102991571*^9, 
   3.500847189309754*^9, 3.5008473303165092`*^9, 3.500847742315309*^9, 
   3.500848149542432*^9, 3.500898465916773*^9, 3.500898578199912*^9, 
   3.500900567845821*^9, 3.504361817690522*^9, 3.504362921690628*^9, 
   3.504362955532674*^9, 3.5043654555952473`*^9, 3.504365533613855*^9, 
   3.50436571030497*^9, 3.5043659565411882`*^9, 3.504366021095625*^9, 
   3.504366282149396*^9, 3.5043664226104593`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"graph", "/.", 
   RowBox[{"(", 
    RowBox[{"sol", "/.", 
     RowBox[{"{", 
      RowBox[{"T", "\[Rule]", 
       RowBox[{"0", "*", "simDuration"}]}], "}"}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.434125013031344*^9, 3.434125025848744*^9}, {
   3.43413249457974*^9, 3.434132494841449*^9}, {3.435422729201329*^9, 
   3.435422738764339*^9}, {3.4354227727768383`*^9, 3.4354228015733643`*^9}, 
   3.435424092121784*^9, {3.466950822925769*^9, 3.466950835375016*^9}, {
   3.466951374922351*^9, 3.466951375254891*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 0, 1], 
    PolygonBox[
     NCache[{{Rational[-1, 60], 0}, {Rational[1, 60], 0}, {
       Rational[1, 60], 1}, {
       Rational[-1, 60], 1}}, {{-0.016666666666666666`, 0}, {
       0.016666666666666666`, 0}, {
       0.016666666666666666`, 1}, {-0.016666666666666666`, 1}}]]}, 
   {RGBColor[0, 0.5, 0.5], 
    PolygonBox[{{-0.0032032167769163087`, 0.016355952435057386`}, {
     0.0032032167769163087`, -0.016355952435057386`}, {0.6165514330915682, 
     0.10376467669930418`}, {0.6101449995377357, 0.13647658156941894`}}]}, 
   {RGBColor[1, 0, 0], 
    PolygonBox[{{0.6139785856121769, 0.13677537057115716`}, {
     0.6127178470171271, 0.10346588769756598`}, {0.6835004981235084, 
     0.10078681818308499`}, {0.6847612367185583, 0.13409630105667614`}}]}, 
   {RGBColor[1, 0, 0], 
    PolygonBox[{{0.6204075870708704, 0.10502284577705956`}, {
     0.6062888455584335, 
     0.13521841249166358`}, {-0.007059370756218464, -0.1515688833093647}, {
     0.007059370756218464, -0.18176445002396868`}}]}, 
   {RGBColor[1, 0, 0], PointBox[{0.613348216314652, 0.12012062913436157`}], 
    PointBox[{-0.8804591605141792, 0.3416666666666667}]}},
  AspectRatio->Automatic,
  Frame->True,
  GridLines->Automatic]], "Output",
 CellChangeTimes->{{3.434125026503313*^9, 3.434125035014036*^9}, 
   3.434125083065167*^9, 3.434125121878828*^9, 3.4341252266159763`*^9, 
   3.434132449625745*^9, 3.434132495366536*^9, {3.434133260615823*^9, 
   3.4341332891716623`*^9}, {3.434133385641191*^9, 3.434133415057557*^9}, 
   3.434198787188312*^9, 3.434229847023344*^9, 3.434230104552782*^9, 
   3.434230940194133*^9, 3.434274345397949*^9, 3.434274426165133*^9, 
   3.4342756087084627`*^9, 3.434276481883903*^9, 3.434278412233242*^9, 
   3.434278443721637*^9, 3.434278473972278*^9, {3.4342811837321777`*^9, 
   3.4342812008306713`*^9}, {3.434281231004424*^9, 3.434281255865986*^9}, 
   3.435344654667865*^9, 3.435422555783094*^9, 3.435422600195578*^9, 
   3.435422682443943*^9, {3.435422715459877*^9, 3.43542273920347*^9}, {
   3.4354227908969183`*^9, 3.4354228025272017`*^9}, 3.435422922639369*^9, 
   3.4354235840161448`*^9, 3.435423724502636*^9, 3.4354240431257257`*^9, {
   3.435424079127296*^9, 3.435424093344002*^9}, 3.435424254258587*^9, 
   3.45769092258116*^9, 3.45769290663089*^9, {3.457710597481278*^9, 
   3.457710622048114*^9}, 3.466770581088512*^9, 3.466793442827662*^9, {
   3.466852697457306*^9, 3.466852725234418*^9}, 3.46685298427073*^9, {
   3.466853654685862*^9, 3.466853668273325*^9}, 3.466854891220977*^9, 
   3.466856463913335*^9, 3.4669506710853233`*^9, 3.466950723951488*^9, {
   3.4669507933626623`*^9, 3.466950836262589*^9}, 3.466950978035008*^9, 
   3.466951253213427*^9, 3.466951375992813*^9, 3.4669517291077137`*^9, 
   3.466952283244193*^9, {3.466952583994829*^9, 3.4669526522987843`*^9}, 
   3.466952825578519*^9, 3.4669589868525543`*^9, 3.466960318785965*^9, 
   3.466960750138083*^9, 3.466961327563445*^9, 3.466964690709256*^9, 
   3.467033544403947*^9, 3.4670340599498777`*^9, 3.467049144726851*^9, 
   3.467049824828927*^9, 3.467049885189423*^9, 3.467050283619212*^9, 
   3.4670506141831827`*^9, 3.4670515671670523`*^9, 3.4671311107498207`*^9, 
   3.4671311572886543`*^9, 3.467131613156681*^9, 3.4673910347872972`*^9, {
   3.46739185754683*^9, 3.467391865947178*^9}, 3.467392042138721*^9, {
   3.4673933255070744`*^9, 3.4673933347349243`*^9}, 3.46739337002562*^9, 
   3.467393889110551*^9, 3.467396709939745*^9, 3.467397416809844*^9, 
   3.467397777623993*^9, 3.467399247891157*^9, 3.467399377100093*^9, {
   3.4674002210642*^9, 3.46740022566774*^9}, 3.467401965137147*^9, 
   3.467402269616593*^9, 3.467403311557094*^9, 3.4674586069921427`*^9, 
   3.467458855743466*^9, 3.467460880520277*^9, {3.467460934731501*^9, 
   3.467460950614855*^9}, 3.467461016431883*^9, 3.467461160118207*^9, {
   3.467461246020955*^9, 3.467461292843943*^9}, 3.4674614695798397`*^9, 
   3.467462289068758*^9, 3.467462332639741*^9, 3.467462395441238*^9, 
   3.467464343236817*^9, 3.467467137673253*^9, 3.467478605975456*^9, 
   3.467479591150755*^9, 3.467480320388381*^9, 3.467480449810114*^9, 
   3.467480796899502*^9, 3.467480828990355*^9, 3.467482813159204*^9, 
   3.467483057203451*^9, 3.467483488130415*^9, 3.467483523606168*^9, 
   3.467483570429237*^9, 3.467483689756297*^9, {3.4675792694052143`*^9, 
   3.467579321841647*^9}, 3.467579473671015*^9, 3.4675806734053917`*^9, 
   3.4675815080127573`*^9, 3.467581546614682*^9, 3.467582745066062*^9, 
   3.467583055491577*^9, 3.4675830904404573`*^9, 3.4675834788741493`*^9, 
   3.467584083549492*^9, 3.467584148889297*^9, 3.467584251650515*^9, 
   3.467584322107294*^9, 3.4675844763599567`*^9, {3.467584611626589*^9, 
   3.467584639773808*^9}, {3.467584678001502*^9, 3.467584699742049*^9}, 
   3.467584730945074*^9, 3.467584808408966*^9, 3.467632232349586*^9, {
   3.467632368115657*^9, 3.4676323762698603`*^9}, {3.467632433503112*^9, 
   3.467632476270399*^9}, 3.467632532901692*^9, 3.467652528941022*^9, 
   3.468590121636739*^9, 3.468593541396022*^9, 3.468593954588543*^9, 
   3.468594453639963*^9, {3.468594514920117*^9, 3.4685945399412727`*^9}, 
   3.468594670855197*^9, 3.4685947196785107`*^9, 3.46867373784505*^9, 
   3.46867380150825*^9, 3.46867383681542*^9, 3.4686739556882267`*^9, 
   3.468675314339357*^9, 3.468678415325189*^9, 3.468678537308135*^9, {
   3.4686787668670273`*^9, 3.468678782431592*^9}, {3.469193247347808*^9, 
   3.469193267312065*^9}, 3.469193412170075*^9, 3.469193721179974*^9, 
   3.46919376367579*^9, 3.4691938243895607`*^9, 3.4691940325073013`*^9, 
   3.469479981590506*^9, 3.469480041057569*^9, 3.500842627044387*^9, 
   3.500843037882325*^9, 3.500843277102314*^9, 3.500845811113278*^9, 
   3.50084610315131*^9, 3.500847189385042*^9, 3.50084733041088*^9, 
   3.500847742378049*^9, 3.500848149607058*^9, 3.500898465975697*^9, 
   3.500898578325248*^9, 3.5009005678838453`*^9, 3.5043618177490463`*^9, 
   3.504362774071913*^9, 3.504362921792658*^9, 3.5043629555940866`*^9, 
   3.504365455646018*^9, 3.504365533661479*^9, 3.504365710348927*^9, 
   3.5043659566102133`*^9, 3.504366021184986*^9, 3.504366282266247*^9, 
   3.5043664228262243`*^9}]
}, Open  ]],

Cell["\<\
numPlot = 10; GraphicsGrid[{graph /. (sol /. Table[{T -> i}, {i, 0, \
simDuration, simDuration/numPlot}] )}]\
\>", "Text",
 CellChangeTimes->{{3.434124376451707*^9, 3.434124386825943*^9}, 
   3.434124427536449*^9, {3.43412447984899*^9, 3.434124504827565*^9}, 
   3.434124649848199*^9, {3.4342746652315617`*^9, 3.4342746864441423`*^9}, {
   3.435422937148481*^9, 3.435422937794631*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"graph", " ", "/.", " ", 
     RowBox[{"(", 
      RowBox[{"sol", " ", "/.", " ", 
       RowBox[{"{", 
        RowBox[{"T", " ", "->", " ", "i"}], "}"}]}], ")"}]}], "]"}], ",", " ",
    
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "0", ",", " ", "simDuration", ",", " ", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4341248439117002`*^9, 3.434124867644124*^9}, {
  3.43412497373147*^9, 3.434124980391782*^9}, {3.4341252569537973`*^9, 
  3.434125312402038*^9}, {3.466952750922741*^9, 3.4669527520700293`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i$$ = 0.30000000000000004`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`i$$], 0, 6, 0.1}}, Typeset`size$$ = {
    450., {165., 173.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`i$22001$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`i$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`i$$, $CellContext`i$22001$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ReplaceAll[$CellContext`graph, 
         ReplaceAll[$CellContext`sol, {$CellContext`T -> $CellContext`i$$}]]],
       "Specifications" :> {{$CellContext`i$$, 0, 6, 0.1, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{494.5, {207., 213.5}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.467632282092537*^9, 3.467632289434656*^9}, {
   3.467632368131341*^9, 3.467632387979694*^9}, {3.467632433517963*^9, 
   3.467632476292088*^9}, {3.467632532916585*^9, 3.4676325390966263`*^9}, 
   3.467652528958734*^9, {3.468590121654941*^9, 3.4685901308507767`*^9}, 
   3.46859354141733*^9, 3.4685939546030912`*^9, 3.46859445365797*^9, {
   3.468594514941457*^9, 3.46859453996314*^9}, 3.4685946709165916`*^9, 
   3.468594719804225*^9, 3.4685974560697203`*^9, 3.4686724574589243`*^9, {
   3.468673738031474*^9, 3.46867374888901*^9}, {3.468673801560495*^9, 
   3.4686738481021357`*^9}, {3.469193285847353*^9, 3.469193302340022*^9}, {
   3.469193412215485*^9, 3.46919344141525*^9}, {3.469193721298856*^9, 
   3.469193729240548*^9}, {3.4691937637224207`*^9, 3.4691937704774427`*^9}, 
   3.469193824617566*^9, 3.469194037998803*^9, 3.469451933613953*^9, {
   3.469479992331285*^9, 3.4694799980033627`*^9}, {3.500842627368986*^9, 
   3.50084263315688*^9}, {3.500843037999831*^9, 3.5008430428764763`*^9}, 
   3.500843277145791*^9, {3.500845811201193*^9, 3.500845820067721*^9}, {
   3.500846103195669*^9, 3.500846112970233*^9}, 3.5008471895186357`*^9, {
   3.5008473305941687`*^9, 3.5008473397808037`*^9}, {3.500847742395605*^9, 
   3.500847750789583*^9}, {3.500848149639969*^9, 3.500848155356072*^9}, {
   3.500898466304081*^9, 3.500898470639819*^9}, {3.5008985785027943`*^9, 
   3.5008985811545143`*^9}, {3.500900568207995*^9, 3.500900573454623*^9}, {
   3.5043618177804937`*^9, 3.504361833659841*^9}, {3.504362921888962*^9, 
   3.504362962400846*^9}, {3.504365455788911*^9, 3.5043654636198606`*^9}, 
   3.504365533697605*^9, 3.504365579095559*^9, 3.504365710364403*^9, 
   3.50436577012177*^9, {3.504365956709972*^9, 3.504365969376644*^9}, {
   3.504366021353232*^9, 3.504366030079461*^9}, 3.504366282365087*^9, 
   3.50436639005728*^9, {3.5043664229050493`*^9, 3.504366428242663*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graph results", "Subsection",
 CellChangeTimes->{{3.434122912094719*^9, 3.434122914413233*^9}, {
  3.4343018107259912`*^9, 3.4343018122138433`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"springMoment", "/.", "sol"}], ")"}], ",", 
     RowBox[{"T", "*", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.435423473601293*^9, 3.435423489896106*^9}, 3.4673930927006598`*^9, {
   3.4673932960456343`*^9, 3.4673932965292473`*^9}, {3.467398011728251*^9, 
   3.467398017717256*^9}, {3.4673992536163387`*^9, 3.467399268487191*^9}, {
   3.4673994779461927`*^9, 3.4673995238052473`*^9}, {3.4674798134689217`*^9, 
   3.467479856263836*^9}, {3.467480335030034*^9, 3.4674803366969957`*^9}, {
   3.467581115472666*^9, 3.467581126064686*^9}, {3.467582379795638*^9, 
   3.467582415621159*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8VN8bB3BEUYqYuVMKM5ZBIpU2xTmWFCFLJLRokSTkW0IL2SpZyhZC
0SJJKqSQc8maPRVZspa6M5N9zfI7v7/m9f7j3Pvc53yec4Z13N3ylAAfH98e
fj6+//9O7XNLNnf316E0zoxObGORISeVlBvYR8DJlZVf/u+6v/0u4Ww3oDH7
y/v/zqS3P/ye5AV0X1V1jWMP5eiHubKvgVvcsyL/t5TKt8KFlgAw4944Poqt
7R26sTopBNycHn88gn2sUic9yjEUKOztIIaxA4jRtQ7sCFAiFbhvEPvzG6vq
qPE7wEKD0uNhn2xTC5psiQJVe1bOUdjj/MLAoSAGMJhTPr//X69K7zSZFAc2
eqe8/4nNsCjKVfSLB8JigkW92M+849xDHRNB5waV613YNZXGP63YKUCFlW3V
iv3ykoS5g+BDMK0j5vgF+9Jtv6yI8YcgQ0BtYyO2cM4h59GWNNCjkrq6Erux
oqJcsfoR+Lh8amMpdkLbZnnbgscAli1d/gF7ncCKH0VJT4HMv2PL3mCP0C/v
HAxPBzcVHqm/wC5U+R3P8nsGHnqm0J5im1iUWoU4PgdWvA/KCdjuD72q97Nf
gvTWsPNXsLfn9rEDGNlAbyL4+QVsvpPKenaCr8CZks1PXbGrL8U+CBt/BaKv
Pv1pj233wN1uuOUNYAQ2BW3D1lFh3wo1zwEHTSyb1bDlcjry5atzwFdbv355
bE6FEd2mIBfUpXw3E8O+8le+sSDpLTCNddPv24r3y7tt3oqeD9Zv2Jjegm0g
cFeNF54PPn6Oq6vBXk7Mh8r6vQPWiYbHc7BTtFt3BzkWgNATmpl+2CVhYYWm
7GLAT7/zXhS7mPpeuyyjGEiZ+Ez+28Iii/Yq/ahWRUCF2MSjsO0FHPkerSLB
4a0jC5XY1sX/5GRlSoBl78nSa9jGWzc6M1Q+AnbD9vc/NFnk3p8tHl4uH4HR
h3ue1dh7Yq75fM38CFSOxPflYBuM1IRGq5eBOoUL3BvYOi+dssQ0y4Fl8b6E
9dib2UkjS0Al2Clue9h5M4vc9FXvn5N/JXCuiY40w9YI+rOooqQS/C3R99HE
Vu/dSg8yqALXNox5LmxikcopTdv4jKvB5jP2C3ex1xJLrk4dqAEX5qe8Mzay
SKHFnkv+uDSA/YY/v6VuYJG/jfzERtMbgJaBu/517E/hYYy5/gYQsuyAxzHs
ytDm6JsbGoEmS3aZDPZtib+PkjIawYFYK4M4dRZJk5MvK0tuApGCkyW+aiyS
rRsuSA9pBtlhKp8lVXH++6KFEx83g2+N/PqcdTi/wYmish+bgbbnu/9Ksamq
dJoK3xeQ8Sab5oGdbV6qoO37Baz5z+xAlQrO27FJg1NuX4HVzsgKV2UWaeTn
GJxn0wKiXAftgxVxfyJLDFMvtAAT16lca+y1D1jC4VEtYHRZY4Mi9lBxT+jJ
+hagltZqXK7AIuPmHe9IGrYCH9c6a37s/qvH75/f8h10qicXnZNjkf5XTrxW
o7UDWfnIJwxZFukS9tFz9aZ20DvE3tAtwyIPJMlrCpm3g8YMjs8zbKWivrcd
t9tBw99fltux6/+dKLq9qANoufRLWEvjei6frPwz0gF8p+gfA9awyHyfU51P
mn6Ayyn/3r9ksMinOmdbpEZ+gJEc+bkz2HGLzjdFSnSBivnAcQVsr/Ar5T5W
XeBpSY1QIsEit6ZGZ5l+7QLs1vBH/nScz/7uYl/XbmCqdLsWSLLItmVikXIe
PaDFpzQ1eAWL/G53doPnpT6wboeNg5ogiwzt3eN6L6QPKOyYCGlfxCK1XBQy
imL7wMn1gW63sJN8OuWW5PaBvG27L/QL4HmL308kDfWBW3+jDt3jZ5EDXzfP
lZ/pByM7b9wdmmeS4+azn1Y7/AQVUpf2eEwzyZV7wp1K4AAYUs/9mcZjkgYZ
RUDVYgDoJX0v3YbtvYy7KtZxAFgefmlWy2WS3Q3GNc4BA+CFlqbnGIdJvrIV
1hAvGwA2AjYDkGKS5i6B00f2/AZt5YTfp19M8k64T9is6R9wmpm3/GEXkxT/
curNNnsOMLqWJmbZyCTlma4ZwccHQf958+7TL5nk9s5zNbpRwyA6ZuvZhVtM
smTG3+TL/VEg/34fSRxmks6oqqo4YBzkPplgt6oxyYQT6VL0Y5PAoF44IX1M
llSz7ZmYPzUNEtcZtr/zliV/jO6vh0b/gL+lm/L2aRlypGu1BmE9B+rfFJ+P
c5Qh72T6nj54cAF4B2QwXxdLk2wxYVPv+3wwaIt5RvtqafKth39mxAN+GGto
7Z9vu5b8ohi9xCJKAMrHJBSWxa0hFQKblQ8nLII+RwoOPsyTIneYd2k+uC8I
3dsN5eKqV5OdHsE64WFC8J9q9qR29yryzY5Dy8vvLoYH/UXZPl8ZJGFT+f1Z
8BJorlSQotdIkKCX727pBWFowa09llZOJxMI5+VsbxF4L318ejaBRgaknLmx
xWUp7Fl79u5qX0kyuT6+IsJjGdTj07oxoyVBXnWLHpL2FIUhMqdW9s6KkxxH
5VWHji+H1pv7TI0ei5G35yjBH04r4ItpcnKX9HKygLtncIWdGHwnMfXRsXIp
+U1xe6+Wgjjs2Xv//OqbwqSzyokN0U/EYUPKzNUylcVkiY39ZV2ZlbDUvuac
4lJBcrMtlUFLXQnrJv2X/GjjJ10DDVu010jAGuRdUdC3gG46Cc/wR0vAN8J5
G8fOzqIP0o4LFE0SOtVUPS/nn0bv50MWrYuQhPZnLU5orZ9AEcOs6G13JCHj
3YuCIuYEOt5fJLc7ShIuVnnyezd9Ai39NKJ7LE4Sqqi+rnedH0cOsUf841Ik
oUii2KBo0ziaV906J5AtCQ3d87ruXRpHBod+TrQ3SMLCI7KX+qrHUH2OPhW+
kgZzb4NNGYGjKEA79+ddSRrUj97bJeU7irZWKvTE0mlQdGxvULTHKEppE2pN
Xk2DPHvpooTDo+gcf1V5FosGNy1Ei85sG0Wi+01S6zbS4Mnuh2tX/x1BxtQB
2+WWNHiU7fT43dERVM50qgiLosFZyuq4ne0wYnY1rXaLocHe4BTnNRbDyDdZ
+9z+OBp8KnKuoNdoGGlI0WkSiTTIVinTD9o5jJIkyxzvpWLbPFgkKTuMLiyW
m0t9RYOoVY06OjCEFLidm/PraXBsUUNf0ZUh5Pfc6EZ8Iw0azy77uddrCLU5
57X5fKbB6Sqwr919CN35GXZ91zcarNtVYCR5YgjN/tjZUNJJg+fWAsVGoyH0
pSnBpZZLgyLrs4SvrRpCQfnWqT1L6TDy07pjeRcHkUbTvpscUTrc9mJW+cqZ
QdRO6bqPr6DDU/rxSpaHB9EmGXVtEUk61E/b80l19yDqClr8XWMNHVZFGZTG
0geRlmW+uL8qHcqWpR3f/f4vGuKu8pcxocOLd01ipET/oqTFYqeVzehwjuch
+Yn/L9rDFDLbZE6HBf7b/tyc5KEUq+E1hgfocMq2Ikmzj4f2FVTnn3OgQ4nd
z6BBIQ89veE7WORKhyvvOjvuduMhB7mOI/bhdGjF2rb1WxcXvfSoS9aLpEPx
rw4ZfK1cxI+KO1Tu0mGTXOi97Y1c9NQ+1W4qBj//s+XvRpKLhmKcbGKT6PC5
54LnozQuCloybNqQSYdKjM6BRmcu+mbdG/Y2iw6vvXjr3uzIRSqPm2uSs+kw
dXzMr8+Oi+rhWyPXHDo09h7L22DKRat8L+8WKaTDk+123d6buOgFV0hb/xMd
/vKt14pd4KB5rcnL62rpMFR1+buL0xxkcet3wcp6OpQ+n0aeGOWgCcWa7d1N
dEi9kbrgPMBB8Ogdzavf6XB/6x4nWiMH75/U+vzfdOjaW3pj4hEHsZmiZ1Mo
Ohzl0T9mp3CQj9tcRjAXv+/cQKhXAgfJLOtWOjBEh59L95PrIznI2eCJ/PAk
/v4bO8t2Xuagf283rFFdQsD3+Vmw35qD1JMmyoVFCAj5Fy6GWXDQsesfPH4t
JaA0o/e1rikHle3bV5G6goAlto+0mw04KKzb6fwqgoDFIjNPozQ5qLhcbe0E
g4BKYSUSjzQ4aOj5WEXzagLm7XoaTK7noAMXA9ZGShOQ77vodTlFDlq7NKVS
SJGAA1+2NgYQHGQ2eNKzj01A/5QGr38SHOT/RVW6RJmAglPiitfFOKg/5b3n
lfUEzF7WHJ8jzEEvNn+VHt1MwILbu7py/1Fo12HRC916BGx92Deh3E8hN71m
mWIDAjbKazA9eyj0UCmx+r4hAXVmdlpW/aCQ4IiS7EFjAt6ybGm8/51CtSH6
n+osCIhCBLW6Gig0f3bpxUwrAnZe3px5p45CGhZNsresCbiHnaW4v4ZCMWuO
XjQ4RMDP+yq2jlZQyOGVL7PwGAGFX12qaSmmUESsbk38cQJmKvbfHC6iEOkr
7OV1koD737DNVxVSSGF3XM1GZwKSJf/NhuVTyGbdYS8xF9wf6dSetjwK3RRT
YPHOEnAdpBq35FKI+/211zN3AhpH0uslXlNIBnmzQs4T8FW0VEdMNoXMH4Pa
E/8RcEL8+pj8SwrlutWxZC8R0DliSt4lk0K/rGJqZ70JKDGQoKb4nEKrdthf
avMl4OEvq3R5zyh0ZdGf2thrBPxmZRz4+Cn+fn2tZUn+BAy5liB99QmFrgfd
NkoLIOA/B/EVpx7j/pV33HgWRMDxDRwrh0cUChFSr3gZQsC9253+Hk+jkLCh
n2DeTQJWvv3Q4Z1KodCQRr3CUALqc9VkUh5SKHLJf6gygoC6fkb3iAcUkthb
Nld3B9d75FzdmRTc35v0XV+iCPhhMtGqNplCRLWTb1sMrj9shYoOdrzIu3fd
cQRUdhA0RUkUkjIWmfwVT8C2Z++K92Mnh9pt4SUSeJ5OXx28TyFmTeZ/o0kE
VCk0vZmCnbZs7vV0CgEvCqT/cMBWMDEbWnhIwMDqbL912OlhD9QXPyLgRovH
Lkuw19UNuYo+wflpI1NGEyn0YrlepkQ6ASOf6K4ZxFY3i/6zKoOAHaPHu6ax
X0f0K8lmEnBKyJGSxOs1G7Y4KWbhfK313qmN/VbsxmPVbAIOefc3XcTebt7a
u/E1Aa3te198wC68o8LankPAWsGXNTT8PTpNvkd18ggo+TZQ7TI2ubI22SCf
gHPZD5qGsPUspTuM3xPwyGad/Iu4P2VRblIWhQRc8L/fKYL7adiMbA9+IODz
76P6WdjVkivvHUYE1LoW+Oco7r/JgeNfT5QQ8HR2SB0L7099TI6ky0cCEi93
DI5gm38VtPQox+8raDVtxvv5mW5zx6uSgIsYD3+X4v0+YJNef6WagL8FaotL
cB5a4qZEA2twf1F8QwPOSwfj/q3IBgI2ZwmlrE6n0BFbbmVsEz5vHGXsrHH+
euK1Fyc1E/De7yrThxk4r6u7A561EJDlVdZ64gWFhtYoXinpIuCBR9zTqW8o
5OngVVDZg/Miqlpjg+djPKlyqq4Pz//+zqNr3lJoRtrlYtsAnl/nCKnP7ym0
iJntNjpIwC0z79F4Cc7rMb6s6WG83kQ9QaEM5zXVgrMwSsCDflPJx/E8i8qN
nRadwuddqB9bFM87obDDUZGPAWdNB6XpXykEE4InhQUY0IftvjeyhUJnVnwO
5y5iwKSs6TSijUJFUy4FOUsYMCLxzU+TLgodr0uS1BNjQNUcszsHKQqF6f3J
UFzJgPFlxSo7eRTKy98CRSQZ0Gyd7l/VIVxPWr1rI4HXl/NNaE5Q6KUXX8UR
GQbcvyA02C/AQa0cEwc9JgMaX3rUsHExB/E7JowoyjGg9h+7b7dF8Hm7b5Ms
T5EBlSLuW50W56AZ2ZPel9UYMP/B/L9CGQ4yrK5cF7+LAYv55XzatTnIQ4dW
clmHAasbmjxmdDkoIefYwaOQAU36ngexDTmImzwdyDZgwGtZDvNPzDgoylO1
M3cfA6ZFHVLWO8ZBP9ZERjbZMWA9iqj5G8xBl9xsxpb6MKDW43vjtHZ8H+io
yTAuM2BgqOsFyx4OchET3Ct/lQFtYr7pPcD33ZFXr+/vvM6AX4ZBjdMYrm9E
VN/1FgPyD8ILWSu4iPD6eLcugQGvVpddXGXIRblXNTbcKWDAxgKprKP4Plc3
W3IoqYgByW3r44KruOiZzI+AZ8UMeObz9bwCfP8nodvfyFIGlIMN0ZY9XBTI
P3B1+BMDGqyqfbd9EQ9ZBifXWrYzYEYUMdppxEPDYUtd6LMM6H52y4OQXh5a
G6RLU8Q2Kd+r04y957J3sSZ265/Gbln8fyX5zC+JA9gXw4HGe2wjw9LCKOwF
RtwUp5+HUhd8lovPMeApQaUNlgM8ZOH559XSeQa0CK3fzOLy0JUzTHsp7Oe3
vXXdsNOPHRRah+2ies+yEHvOrPyQEXY43ORnzeOhDNVUgZvYrxO7+EP/8hD/
T9sDQgsM+KCVnjU6xEPrOyLnadhQSmQEDvPQweaKZwrYSv0eWhHYWSWac/rY
25alfFUe4aFDKeJPA7C9/Ny2HBnloaDYPeZR2Kc6hOIysbPDrs2kYge9XTkz
hS10mWtWgl3VEVIbPcZDGp7y043YyuwhrR5s+zN2j7qxNQfqXqiP8/C83TUd
wvaXYcpdwX59sGpyATvz06/Eauz/AfvAI48=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxNzntIU3EcBfDrY85W02lzlY+w3G6mhUJGGuQDwbFqPko350yctuWWTRmR
mmYynQndrdwQEpk2wlSkl5JSkjHBR1haKIngIy0Lp6RmZWrbKsjv/R04HD7/
nX1ZeWekjhiGxf/tv/11SmlMzCuLxP6n8vyBwGE8I2rLb75+UmhxJXi5PZbI
xUvBataqbzquAw/2n5w7i9eD8+5eeZWAPwSbCaKLj3eDKS4q6rxiGMy7LtE8
FYyBO4ukk43vpsDjaRdDVAUfwR5crcwc/QXMGJW2HRMvgAP8c1s0WUvg8MlL
gzH6FfLPRtnp0bpVcM7LgYFu9Q9wbXaTt1fmGvhw6sxPm3QdPLWaMBTN2wR/
m94Tykqxgm+3Xr0gFNrBuLsrv7AOi95yR35Zq67BATzKMVCT9I5gdvlI4Lla
J3BE4nRYQ50zeDJfE6klKOC2CBG9t9oFzBL0jzdrqOCoWay657IruJaVQ8cL
t4HV9fIbRxU0sHHoTp8ufzv4mtKw7KfaAV6QBO4WZdHBN60W5ymZG/j5InfJ
Lc0d/J4TPnuczQDnHMwOMTSSNgvExTF7PcBHUi0tTBPp3PK4sRM+nuAqmeuG
g4H0Cz+J3cLcCX5mq3QK0pEeao+1aD2Y4F5/WR+hJ13RmWKaoXmB0/dPZIi1
pDc7QnyCqSxwidP865pS0ix2hISD7QIXKAXfaUWkVwiawus3ad+KGCYHMbe4
sDsMsVH+2TMZMS+up0uP2GQvojOspJNU849pNtIlcn+xN+KmTCElCLE1vlfE
Q9wSbHKsQuwwl5pMsZM+NHHLxkQsHOlrZiN+YA6zxiIW1TPuqxFX1HAT9Ygf
EaUbJsSU4sV4M+JQVcD6W8Riedq9D4grM6v5y4ifCAfW7Ij/AMEsE58=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 6}, {-8.60930596026488, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467479827927024*^9, 3.4674798569845552`*^9}, {
   3.4674803208189*^9, 3.467480337592688*^9}, 3.467480450261086*^9, 
   3.4674807972639914`*^9, 3.467480829346465*^9, 3.4674828140316963`*^9, 
   3.4674830575016727`*^9, 3.46748348865103*^9, 3.467483523922686*^9, 
   3.4674835706762323`*^9, 3.467483689892736*^9, {3.467579269910458*^9, 
   3.4675793222623663`*^9}, 3.4675794738395557`*^9, 3.4675806736785603`*^9, {
   3.4675811173151484`*^9, 3.467581126683179*^9}, 3.467581508243607*^9, 
   3.467581546742684*^9, 3.467581956842123*^9, {3.4675823873955517`*^9, 
   3.467582416236145*^9}, 3.467582745452962*^9, 3.467583055677402*^9, 
   3.467583090685697*^9, 3.4675834790218477`*^9, 3.467584083860343*^9, 
   3.4675841490663567`*^9, 3.4675842518926*^9, 3.467584322271891*^9, 
   3.467584476705655*^9, {3.467584611815646*^9, 3.467584639905117*^9}, {
   3.467584678484497*^9, 3.467584699884089*^9}, 3.4675847311773777`*^9, 
   3.467584808601553*^9, 3.4676322325132008`*^9, 3.467632368408115*^9, {
   3.467632433676179*^9, 3.4676324764677*^9}, 3.46763253321863*^9, 
   3.467652529193946*^9, 3.468590121921543*^9, 3.468593541640935*^9, 
   3.468593954817637*^9, 3.468594454085678*^9, {3.468594515188651*^9, 
   3.468594540252143*^9}, 3.468594671116213*^9, 3.4685947200000362`*^9, 
   3.468673738261113*^9, 3.468673802043646*^9, 3.468673837364287*^9, 
   3.468673955960002*^9, 3.4686753148159723`*^9, 3.468678415401246*^9, 
   3.4686785373726387`*^9, {3.4686787669548807`*^9, 3.46867878249492*^9}, 
   3.469193247444165*^9, 3.46919341232528*^9, 3.469193721415172*^9, 
   3.4691937638063183`*^9, 3.469193824765768*^9, 3.46947998166818*^9, 
   3.500842627553315*^9, 3.50084303813739*^9, 3.5008432772438307`*^9, 
   3.500845811301015*^9, 3.500846103279018*^9, 3.5008471901581697`*^9, 
   3.500847330914074*^9, 3.50084774247934*^9, 3.500848149724534*^9, 
   3.5008984663868637`*^9, 3.500898578599527*^9, 3.500900568330022*^9, 
   3.5043618178499327`*^9, 3.504362921940888*^9, 3.504365455859584*^9, 
   3.504365533758006*^9, 3.5043657104565983`*^9, 3.5043659567854156`*^9, 
   3.504366021551593*^9, 3.504366282431005*^9, 3.5043664229746532`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"180", "/", "Pi"}], ")"}], " ", 
  RowBox[{"Tmax", "/", "kSpring"}]}]], "Input",
 CellChangeTimes->{{3.467396903658636*^9, 3.467396962701028*^9}, 
   3.467396996425456*^9, {3.46739746884308*^9, 3.4673975326508217`*^9}, {
   3.467397625785314*^9, 3.4673976274316463`*^9}, {3.467397790755398*^9, 
   3.467397803904971*^9}}],

Cell[BoxData[
 RowBox[{"1.5399898017934197`", " ", "Tmax"}]], "Output",
 CellChangeTimes->{{3.467396917686204*^9, 3.467396931435074*^9}, {
   3.467396967144556*^9, 3.4673969970737343`*^9}, 3.467397417040325*^9, {
   3.467397470347995*^9, 3.467397490610798*^9}, {3.467397528976288*^9, 
   3.467397533100007*^9}, 3.467397631043847*^9, {3.467397783753454*^9, 
   3.46739780457055*^9}, 3.467399248247034*^9, 3.467399377674138*^9, {
   3.467400221247324*^9, 3.467400226096167*^9}, 3.4674019655629253`*^9, 
   3.46740226987709*^9, 3.467403311873707*^9, 3.467458607211727*^9, 
   3.467458856024164*^9, 3.467460880757997*^9, {3.467460934952043*^9, 
   3.467460950849223*^9}, 3.467461016653659*^9, 3.4674611603886003`*^9, {
   3.4674612462539043`*^9, 3.467461293048959*^9}, 3.467461469955611*^9, 
   3.467462289673324*^9, 3.467462333328848*^9, 3.467462395832308*^9, 
   3.467464343403699*^9, 3.467467137965022*^9, 3.467478606282827*^9, 
   3.467479591467429*^9, 3.4674803208694572`*^9, 3.467480450327973*^9, 
   3.467480797313925*^9, 3.467480829408196*^9, 3.4674828140429697`*^9, 
   3.4674830575126753`*^9, 3.467483488760138*^9, 3.467483523966407*^9, 
   3.467483570711341*^9, 3.467483689909657*^9, {3.467579269937517*^9, 
   3.467579322306818*^9}, 3.46757947391441*^9, 3.4675806737022676`*^9, 
   3.467581508265134*^9, 3.467581546803245*^9, 3.467582745483721*^9, 
   3.467583055741984*^9, 3.46758309075771*^9, 3.467583479064962*^9, 
   3.4675840838820763`*^9, 3.46758414916352*^9, 3.4675842519227858`*^9, 
   3.467584322296587*^9, 3.467584476717391*^9, {3.467584611861617*^9, 
   3.4675846399182*^9}, {3.4675846785511503`*^9, 3.467584699902576*^9}, 
   3.467584731193996*^9, 3.467584808662219*^9, 3.4676322325375233`*^9, 
   3.46763236843309*^9, {3.4676324336921453`*^9, 3.4676324764955597`*^9}, 
   3.467632533278302*^9, 3.4676525292606287`*^9, 3.4685901220214653`*^9, 
   3.468593541700975*^9, 3.468593954835112*^9, 3.468594454279275*^9, {
   3.46859451521949*^9, 3.468594540290976*^9}, 3.4685946711491423`*^9, 
   3.468594720023622*^9, 3.468673738326541*^9, 3.468673802172858*^9, 
   3.468673837470708*^9, 3.468673956050767*^9, 3.468675314916135*^9, 
   3.468678415428802*^9, 3.468678537474844*^9, {3.468678767003998*^9, 
   3.468678782549036*^9}, 3.4691932474549217`*^9, 3.46919341239224*^9, 
   3.4691937215073757`*^9, 3.469193763835869*^9, 3.469193824802737*^9, 
   3.4694799817241297`*^9, 3.500842627733508*^9, 3.5008430382509117`*^9, 
   3.500843277309989*^9, 3.500845811448674*^9, 3.500846103307887*^9, 
   3.500847190533589*^9, 3.5008473309320087`*^9, 3.5008477425077343`*^9, 
   3.500848149736257*^9, 3.500898466545179*^9, 3.500898578675851*^9, 
   3.50090056837563*^9, 3.504361817906925*^9, 3.504362921976482*^9, 
   3.504365455876884*^9, 3.5043655337686167`*^9, 3.504365710466954*^9, 
   3.504365956887753*^9, 3.50436602163433*^9, 3.5043662824648046`*^9, 
   3.504366422993044*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"180", "/", "Pi"}], " ", "thetaRest"}]], "Input",
 CellChangeTimes->{{3.50436618156463*^9, 3.50436618994118*^9}}],

Cell[BoxData["92.17745008064685`"], "Output",
 CellChangeTimes->{3.5043661906689243`*^9, 3.504366282566187*^9, 
  3.504366423040606*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"180", "/", "Pi"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"Angle", "[", 
       RowBox[{"mV", ",", "1"}], "]"}], ")"}]}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.435423473601293*^9, 3.435423489896106*^9}, {3.467396673752857*^9, 
   3.4673966991195*^9}, {3.467396744056724*^9, 3.467396771628088*^9}, {
   3.467397004337969*^9, 3.46739700599998*^9}, {3.467397388160551*^9, 
   3.467397407660871*^9}, 3.467459149709363*^9, {3.467580847979999*^9, 
   3.467580849434814*^9}, {3.467581832368923*^9, 3.467581874944954*^9}, {
   3.467582861815735*^9, 3.467582871694042*^9}, {3.4686752628601294`*^9, 
   3.468675267802236*^9}, {3.468675393242087*^9, 3.468675394992724*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8lN8XB3BC9igzz4iyz4RKSvXT5h5LVJZosVdIkkqlEtKXhGRP9LWv
FVIkopCbCsmWkCzJ2sQ8lSXt8rvfv+b1/mPmnvs55zzPKLuc2HVoHh8fnwk/
H99/nz9MPdMsTwTq0Sro8T4NDoS6LlNv5exHz20XRf/n5s8jHlEcT/QoL4Hv
PxcwezO7U71RYuELhiPxRIlh5DHOP0h3fsFLe2I5jTeVc11B6LDpZhU74i0+
4asbUkPRj8X+8jbETvV6uXHO4eixpEfZHuIganqJIycaXX4qNG1F/Pr+7oa4
mVik3mHRZkHs2rMy+HtXHDrTb2RlSjzDL4IcK+KR7gWul8l/9WoM/XySeh3t
MFu/3pCYZVVVyg5IRL5c7RQ94jyf6yfCnZNR/tOurA3EjfU7Rndz0tGVB+x4
LeLCc4ssHQUz0eKKxgB14nMRAXejZzKRMlNeUoVYpMTOfborG+VbPpBgEL+q
q6tlN+Sg19/4AiSIk3p0VG0rbqA+1ek4QWLNeQv6q1JvIYOpuoxpdQ5MMc9v
+hKVi85eupU4Tlyp8TFROSAP6Z5X1xkkNrN6ujvU+TYauyNl3kx8ItO7YSen
EImJmzOyiHVLhzlBrCKU0aQql0DM56puYC94D9kyrteEETecS8iInLmHYlMM
ZjyJ7TNO2E923UfDkolf1hOTDK6EW5agb1pL56kTq5T0las2lKD4Ae0yWWJe
3XamdUUpku39M+/nMg74f1Z9VZFahkrPzGg9IHby6fm7m1mOkp0fm+cQG827
uvJTVDnadVtowVViSepvuGLAQ/RmrfTpo8TpW95uDXauQBaOwq3yxDWRkZXm
nGqUyelq9OBwoHq8u0k8vxpl5bNnLYmrti3rb1iO0fOL2/B6Yod5znw5sk/Q
2xvdM3zEe6t/qygq1CBj7crlsWwO7Fi/2p2l8QzFlmWUJ6lxYNto10lvj2fo
+Nv+aR9ik/h/fDsLnqET+QVPbIiNphrDr2k9R1lS/eIMYr1Ct7tSa2vRB56O
+2VVDuhwUqeEUT0ycrdbZ6fCgTWdBr/dAuvR3JorPquJtYPHBOpq6tHePD4z
UWKtofXMYKMXqKixJKdcmQPq6W3/49vRgPYtbWVKES+hhC/82NOITj98MZen
yAGh+V7CYx6tqMn99/OwJRz4uD1Aajq3FTVSZsnWxC+jIlmzI61oyCVJUo24
Prz9WtiqV2hydlHLY3kORCz6nJOa/wrtcRh6QMtxgKGi+vx5WhsqvTolr7uY
Axz9KEFmaDv6nD66JIRJ5n/4mkjyjXZkkz55y5hYJCRZQvFZO/qQsbFFmHj8
RS5Dg68Dae0+8jWMwYEiy6dqW/w60GWFi+mhMmTenL4bHfLsRHpHug6eWMiB
7QHOIQ+su9CmVoMr3yRIPjE1xllnutD1ml+cu8RLMpRFouK60KUpnutB4onq
wXDXli4kGbKvpkWcA9f/OsfKGL9F3IwHvzPFODBywSXl1LpuNCWq4qUjwoFA
/4PFKxm9KHBmdJm0AAc8Ip95LV7Ti2LEA6or5nFgT6rqWiHLXpRkZ/vVlXhZ
1XBZX0QvanUu2PKQnwMtvw9WRQj0oWz2OhN7PlLPedf6sak+1DRYqBE5y4Zy
30Pvbrb1o9NTQrxb39lwS+9ol9xUPzK2lpbeQnxd4FRbzKL36P75yZrX39jg
HeVf67v7PUoME2z6M8OG9VnX7pp3vkfeLCEf069scBgZqPY7NoC2nlyu1j7B
hh5xqRiVk4Oou0IsIGKMDd32R1d5nRtG/TtDV6V1syF8yOTYv6HDqOpwiYYi
8UYPtfyqhGHUqJ9QlfmWDam+71SES4dR1pTJnewuNjgl7qRSJ4bRT32F+1md
bOB26szWHhlBa68vdo5sY8OM5Z+Xix1Hkdv9pkyZBjYsNIlyqwEu8raWrfxQ
xgaj/Cq03IqLIhYLVesT+4jTsgnOXNR76KFh6gM2DLTuaHQP4iI1LU7XzlI2
3LMV0ZZ+zkXrrwgvKS5mg6XHpZ/7TT4i3Rcako532BAb5Rv5x3wM7XBaJbw7
iw3SHYfu/8+Bh051SDnWXGGDqtKx/BCXL+hZ94qh0L1s0H13vFE/bhI99T7g
e3YpG2p+BZp1pEyjoisqj8zeqoE7fvGiOmgG3e8T1IyIUYOkg7lyTKfvKExU
fPM6UIOVtoPf/h76iRTEN7TUD6hC//TOFtj+G2m47MpO/kcVpt4v1qb2zqLB
n9tWd4uqQmyB32Ebmzm064mm69FIFeBIiZj7pPDBOZ2y6ABJFSg7GVgQncEP
CwKOttT7KEMH+5qwVdw8yPHH308OK4HapXb1fUkCYOH1bAtzvRJssHy/NiNF
EA4WVlTd5lOEdydD9KIihUDk1elbVklL4f4GO8naq/PhqlrH4YC/8kBZ13fn
hQhDu9D/fDcdkwM0xHf16RkRqDmVEp3VJgtJlLskx0cU8lfb9K0UZEFQ+pHL
6zzEwN10LqRzGxPSWhLrok+KQ45lw9+D+2Tggue1iaVeElB5R+9N6OmFwHNW
l7VzkYRnun9eTlhIQcTsuGC/2wKQ6dm09h8PcaigTb4ssJeC3MDXY01twvCG
rTu0UU0aGnNXi713EAR3jYOrrt2Uhle/vRyUyvigxtrhvL7CQvhpEjn3cfAX
0rEdz2dkLYR3eYx7Nsu+omOXjLu2yC8C45lP1OlwGoW5ifziv7YIRKdf71Xo
G0SPlzrPjTNkQL7LyiJzfzN69DdUQDNaBqbKn7xZqH0LR08qX/tfrAzk9aS/
3uuWh11GqlS2xsnAacvWV9tSbmOxl1P6TtdlYMD8VMZG/iLsmLA/8Hq6DIiq
OoVn95fgv8vXz84rkgHprve8t35V2Mhu9Ftvqwwoam/OPJ1Uh1tKDMejFjJA
4U2RuTGnHQdtKR29KsOAwR7HGFXndry+Xm0wgcmABeqDw50p7Ti9R+ht2mIG
FG7kZT6S7sDH+V/U3lVmwJtkt6P+PzqwxE6zrObVDPj5LdDmGn6Dd4zvsZXc
xQD7JVePp67owbVKbnWRcQxw8W5y9dUfwErv2xZ7xjMgLFel8KXNAPZL23J8
53UG/L0vGi/iOYC15ZiMRckM6FaoXr4jeQCnyjx3/jeLAYb3NY1HJgfwmfkq
s1n3GLBL1G2eV9ogVqPf6ZS3MGDj5TmvodEhHHB7++XEVwwoaQqOefpzCPe4
P+jxfc2AILkNv6Ilh3HsaOTFzW8YMB3vco9eO4z/9G9qrXnHAMXjqg6VQcO4
oy3Jo4lmwDG6KCRHbgQHl+/NGhRjAp11rl5s0yjWbjMN40kwwWvt5sfvzEdx
77j+iZkFTCicTTFOchrFaxS0tojKMGFDfI/ky5BR/D54fre2PBOCTiw0WNQ6
ijfuKpcOXM4E89Zd7zft+4AnaNlABTMmyJRH9H08zMWp86UOq1swoTKgeF3j
OS42URKyWGPJhB/+774kXObi9N2T8sZ7mPDkzEzgyC0uNq1oKD/uyISh70Nj
h0a4+NZlvy9Vx8h5m7PO/LD/iB1V+vY7RDFBwnDRPqv1Y7jwZHOaQQwTpjum
hp0NxjA/ru7TuMqEBeeM8/ZZjOFbDln2P+KZoNKiPEK5jeGJeDfrhFQmKP+6
IRgbP4aDhSfNWwuYoN9T/SLl0xh+s3cosuwuE7J+e0ce+DGGNW60N6YVMcG1
XNJ3gcA4boGy7cdKmNCQlOepLjuOZf3ObxWtZELy1n5NM/1xfIcW2mL4kgll
H01Sb8eM478bv5/XbCLn38iKkU0ax1ZXPlYsbGHCuXlWuaeyx/E3dqPuQBsT
3lXrGY6WjmM4ELv2QjcTlLp0NV+/HSf9k1tR/pEJDyOqUp4u4WGOksTR9HFS
H4dVP6TGw76es/khNBMMn8wxPq/gYQXxgWV7JpjQPF9Utm4zD7sb3VSd/M4E
/4v95ecdePh32Sr55cIUOOjc3jobz8Naqd9qRUQp0LsUdvRuCg87XXx88oMY
BXZda4K2Z/Pwc1PTuqwFFBzdEHhxaxEPRw64nZKlKCjJWlBr9oKHq2tXLvnG
omCkdZ+nYwsPT9z+Wte+mII7jtnCth08vOds0JKYpRT4oUxRmQEeXiKWXi/E
poAeDdiW+I2HLb64eg1zKCiuDfcU/sPDgR3Ll9aoUxCwv/SSCz+NR9Ifefmv
oOC4+w+/PnEa39HpXDqtQwEneU/ye0Uab94ncWbAgIK9tsPBKkY09jRoV6g2
omCWYRxruY3GmcuSG1KMKYhGclc8zGgsOLVM0WYHuX9EgYHLHho3hRq+bLai
IL8i6LXTQRr/PSp2tmA3BXezLxp/dqOxtlWb4pW9FHzaJZ972IPG8fIHzhrZ
UeD7qGSlwikaO97zU6p0okDF4Yp58gUaRyfoNya6kO/rn1C9HEjjJ34i3t6u
FAiYLh49cInGaluvN652p6DZy2J5ZxiNrTX3eUt5UPCem1N0KoLGYVJqyp+O
UjC8Ypfiryga093F3nknKHjWbv6kJY7GCthHOfQUBZsiD03KJdDY8gZqOnia
gpoaD8nd/9K41LNZWfEcBWVrBAtDUmj8YXd80x8fCiycrBX80mgsu8HhXI8f
yWOZs599Bo39BcaaEv6hQOKu5c/+bHJ/w43iqYEUmKVODd68QeOLwRHbs4Mo
mDpis2LvLZJfbd/lvGAKWsPudNO5NA4V0qorDKUg7qgi71g+jUWMAwQfhFHw
Nfidc+dtGoeHvjKoDKfgpgkDce7QOEb4NK6PpmBZfNbqi4U0XrTt+WxzLAVO
Aru3RxSRfMOYmzviKBj4sKbpwj0aUw1ufj3xFDgWe1baFtM4UfThw4HrFOR0
6sguuU9juR2i3z8kkn7WFQ3XE6eF26/7lEzB7m9Sio4lNFZqLDg9nUoBenux
8S1xtvhs8c90Cmr714xvKSX9MLOYmMsk+fpb+kcQ50ZmaM3PoaBXTeRSDbFm
88QxiZuknu2X594T35E0KFiUS4HH/t9TH4i1LK6NyeaT8zqv7n9DXBw9skyx
gFjZx7CQeG3rOjf2XQrEH/RmexKXSV2+sbyIAnOB8QssYl3Lt0Oriyno++dV
Zx6przJWQ1m3hOxfclWBCrFem98BvQcUJL3o5Qsh93uysCnNqJz0x9/hTSvJ
w2DX0r4dj0ie6kdWChA/j/OUs6qkYFxvjbAiyc+4HdvaPCa/pzPiqkrybZBZ
+O8+TIGszx0TaZK/2R6XzoM1ZD4DH94bJf1piS+R8XhGwYPH67JyCsh8dQru
OllLgegNK7kdpJ+vmdax3vUU/Htzw9LuPBrvsc5t8W+gYNU6+QJLMg9d139I
XGqk4Fqtau29mzTuY6VciWmlILzkQLYmma/9tnR9QhsF8d8+HTbKpPFg4pb5
qe0UGAnZVRunk3ldPBCU10WeB5bnVYSSaTwhz/aveU+eL8vHPrrH0tjL0bui
fpDY1tq6nuzHTGr9j+ZhCpy54vsXkP35tdTjbA+XgslpIX3rEBoLKBV5Tn8h
9dpoeTf7kHl14rv7c5KCnUu73pw8S+Y1y4o3N03B6R6d3j9knyVUvh6W+EHO
F8LtLWTfKbUNzmw+FszeYdy0d6AxJIV8F5nHAvkkJdFwGxofWfA6ihZgQfMN
OYWbu2lc9cOjokSYBZmtd/anm9LYpTlVxkCKBadcZPambaRxpMFYPnshC6Q3
2Ttorqfxg/J1ICrDggOp6+VyVpN6sluOvaJYcPjupVobdRoXevPV7VdgQfEP
3U/NDBq/5Zk5GiixYFLo2+uHUjTmd06aYquwYEJwwidGjPTDdI3iJzYLDCI9
Rfn4SB6Krj7nV7Jg870DNp/HeNi4oV4zcTMLLjc4X+Cr4OGTeoya83ossJR9
3J1bwsNJJU42B4AFZZo3hDbd5WE67ecljhELxHaOtapl8nCc1/J3paYs0ApZ
vH1+CA/3y8fEtNmzIFTV+Qa/KQ+f87T+KubLAnsx0eKB+nE8obdSgXWeBa0T
ybFG1ePYQ0pwm+oFFsh0LeiLJe+7/feKUzZdZMGzDf6VQ5nj2HhKwvDYFRaU
eodXH/UZx5T3s6vNSSxQrt33QUZ1HJde0F4VW8GCM67LjGrJ+1zLQtgutYoF
qgbGf3Ttx3CeQn9QXjUL5DoNTRLMx3Aqjnjz5CkLUosrkoXXjuFL/NwLky9Z
4Hew1K597iPeFZLWtKuXBW2ZT7aJXPuIJyPFPJh/iNcEe03kcvGSYH0Gm3iO
P/C0H7HJeZ/qtcTaSOOEIHHakQ+L9hBrSARby5L/L9uNn1bGES9c4TCKbnBx
1pyvpPQsua/zVYHoTC628hq7J/aXBRYRKww4SVzsf0TJQY544eaexKJELs51
shHSJJbIWDeuSzxrUWu3nVgneMbf9F8uzl+eNS+MmDc/2eVkAhfzj9ruEZpj
gVTjOa1HV7l4RV/MXwaxdAa/tgGxTXtdnhqxo8mGFY2xXHy3Zu2sIbHT0vuM
dzFcbJcufSuIWEL+5U2+aC4OTjCxjCPe1PzU/0oUFxdF/vMri7jO9YjFImKh
87RFDfEFsyeDqpFcrO2l+vMV8VjmyZw7EVzscMQ+Z4BYe7jlwDriUKer5hPE
wcxeqjqci4ttXnyfI+bfmPDCmPj/V1OozA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 6}, {-0.8970827813854616, 11.080793298680383`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.435423427341*^9, 3.435423452084588*^9}, 
   3.435423494861347*^9, 3.4354235849415417`*^9, 3.435423724678959*^9, 
   3.435424048600258*^9, 3.45769092303036*^9, 3.457692906956259*^9, {
   3.457710597663475*^9, 3.457710622728888*^9}, 3.466793443115453*^9, {
   3.466852697732581*^9, 3.46685272548952*^9}, 3.4668529846190853`*^9, {
   3.466853654992978*^9, 3.466853668632921*^9}, 3.466854891493581*^9, 
   3.466856464197669*^9, 3.466950793689651*^9, 3.466950978412621*^9, 
   3.466951253789439*^9, 3.466951729612845*^9, 3.466952283698807*^9, 
   3.4669527054290867`*^9, 3.466952825943935*^9, 3.466958987119543*^9, 
   3.466960319053094*^9, 3.466960750437846*^9, 3.466961327827297*^9, 
   3.466964691052046*^9, 3.4670335444317627`*^9, 3.467034060015319*^9, 
   3.46704914499898*^9, 3.46704982485915*^9, 3.4670498855177803`*^9, 
   3.4670502839029016`*^9, 3.46705061446906*^9, 3.467051567452572*^9, 
   3.4671311109060173`*^9, 3.4671311574619837`*^9, 3.467131613291334*^9, 
   3.4673910349209337`*^9, 3.467391566692992*^9, {3.4673918576001873`*^9, 
   3.467391866151353*^9}, 3.46739204234247*^9, {3.467393325583057*^9, 
   3.467393334836499*^9}, 3.4673933704992657`*^9, 3.467393889646654*^9, 
   3.467396402734641*^9, 3.467396710202077*^9, {3.467396751492917*^9, 
   3.467396772484263*^9}, {3.4673969778230057`*^9, 3.467397006966114*^9}, 
   3.467397417091712*^9, 3.4673992483302937`*^9, 3.467399377778825*^9, {
   3.467400221281142*^9, 3.4674002262099037`*^9}, 3.4674019656889353`*^9, 
   3.467402269913672*^9, 3.467403311917995*^9, 3.467458607263139*^9, 
   3.467458856075061*^9, 3.4674591510195827`*^9, 3.467460880803678*^9, {
   3.4674609349973383`*^9, 3.467460950896147*^9}, 3.467461016698991*^9, 
   3.467461160436516*^9, {3.467461246299337*^9, 3.467461293095132*^9}, 
   3.4674614700012817`*^9, 3.467462289862234*^9, 3.46746233343371*^9, 
   3.4674623958952293`*^9, 3.467464343458222*^9, 3.467467138083947*^9, 
   3.467478606350169*^9, 3.467479591552815*^9, 3.4674803210188932`*^9, 
   3.4674804505595284`*^9, 3.467480797430171*^9, 3.4674808295266047`*^9, 
   3.4674828140860977`*^9, 3.4674830575532827`*^9, 3.4674834891601887`*^9, 
   3.467483524148651*^9, 3.46748357075039*^9, 3.4674836900233088`*^9, {
   3.467579270046608*^9, 3.4675793224140587`*^9}, 3.4675794739764433`*^9, 
   3.467580673734995*^9, 3.4675808502296743`*^9, 3.467581508334824*^9, 
   3.467581546884251*^9, {3.467581833501186*^9, 3.467581876033265*^9}, 
   3.467582745617518*^9, 3.467582872421495*^9, 3.467583055841029*^9, 
   3.4675830908454943`*^9, 3.467583479132938*^9, 3.467584083943336*^9, 
   3.467584149231894*^9, 3.467584251986191*^9, 3.467584322331645*^9, 
   3.467584476765842*^9, {3.467584611908104*^9, 3.4675846399685373`*^9}, {
   3.46758467859942*^9, 3.467584699951038*^9}, 3.467584731279221*^9, 
   3.467584808746126*^9, 3.467632232575018*^9, 3.4676323684720488`*^9, {
   3.467632433743792*^9, 3.467632476552237*^9}, 3.467632533327923*^9, 
   3.467652529309205*^9, 3.468590122123025*^9, 3.468593541769487*^9, 
   3.468593954889193*^9, 3.468594454324718*^9, {3.468594515259585*^9, 
   3.468594540330556*^9}, 3.468594671209323*^9, 3.4685947200607967`*^9, 
   3.468673738406231*^9, 3.468673802538329*^9, 3.468673837688447*^9, 
   3.4686739562479773`*^9, 3.468675315348648*^9, 3.468678415571004*^9, 
   3.4686785376215353`*^9, {3.4686787670727987`*^9, 3.4686787826369553`*^9}, 
   3.469193247542664*^9, 3.46919341250204*^9, 3.4691937216176147`*^9, 
   3.469193763926249*^9, 3.469193824893791*^9, 3.469479981835063*^9, 
   3.500842627890307*^9, 3.5008430384068203`*^9, 3.500843277459261*^9, 
   3.500845811518412*^9, 3.50084610359791*^9, 3.5008471906962214`*^9, 
   3.500847331041107*^9, 3.5008477425958757`*^9, 3.5008481498245783`*^9, 
   3.500898466627689*^9, 3.50089857879421*^9, 3.500900568481675*^9, 
   3.504361817960235*^9, 3.5043629221307917`*^9, 3.504365456010586*^9, 
   3.504365533825529*^9, 3.504365710517247*^9, 3.504365957021481*^9, 
   3.50436602173496*^9, 3.5043662827846746`*^9, 3.504366423088135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"180", "/", "Pi"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"Angle", "[", 
       RowBox[{"carpus", ",", "1"}], "]"}], ")"}]}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.435423473601293*^9, 3.435423489896106*^9}, {3.467396673752857*^9, 
   3.4673966991195*^9}, {3.467396744056724*^9, 3.467396771628088*^9}, {
   3.467397004337969*^9, 3.46739700599998*^9}, {3.467397388160551*^9, 
   3.467397407660871*^9}, 3.467459149709363*^9, {3.467580847979999*^9, 
   3.467580849434814*^9}, {3.467581832368923*^9, 3.467581874944954*^9}, {
   3.467582861815735*^9, 3.467582871694042*^9}, {3.4686752628601294`*^9, 
   3.468675267802236*^9}, {3.468675393242087*^9, 3.468675394992724*^9}, {
   3.468678728749996*^9, 3.468678730233347*^9}, {3.5043629698448153`*^9, 
   3.504362970974119*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Xk4VfkfB/BzLmI01ri3dIss11JKSKrJ5ytCJfsWTV0lYYS0SBLJUrbs
o5IlstSPLE0KOQcho0ToZk2WRJJdtut35o/3835e/72f573llKfFGRqGYalU
/utfRzwemHkG6uiANlvVFidDnRSV3rNOALv/4FsFyu/GB92iWB4wZyAlJkL5
iWRXekfKZVhZW7J9xAYnJ0r0It1Z1+FSs5DCM8pSyh/LVzlBcEJDacaT8v4r
4TsbUkLhn9bV+0zK7HqdnDjHcPAzi2OWWeNkEH2aeZwVDQVGPZeMKH8otmyI
m40BY4fenHornHTqVA2e58SBrWJ88W7Ks7gAHC9LgMYjC4nJltRe5f4FMiUJ
8s4KW4xa4CTDvOKZQkAy/NzQ/HUb5dwrSZ7hjvdgs6yuFdscJxvrDw9ZslJh
R73ky7umOFngI252nDcdfnR5F6aZ4KRPREB+9Gw60BLOBSYdxUmBkmMu05yH
kDCh/djmCE4219XVKjRkwgEDYV6Zwzh5t1NDzq4sC0qVvbQ6jXBShSbcW5GS
DWMhpPwWA5yckvTb9zMqBzIvPuzL18fJcuVvyVsCcmFdz/zFrXo4aWxebRnq
+BhMNw6xFgAnPdMvN5iyCsDok/jTXm2c1H42wApiPAUR66+qU1o4iTkpHbDn
LQT7Gzwhc5o42eCTmBY5WwjbwzrLW9Rw0j7N036SUwz7C+WOfFDESR1l1u1w
sxJoMtse4a6Ak7Il3aVyDSWw9odG5rwsTn6vOyRpU/YMrJd5Hfo24eS1cbnm
spTnMFIY821JnPrrSifXUrIUwlwPDjNFcVKfFqv6I6oUvIdSX20XwkkhOjdc
OuAFrAhKTsrz42Tq/k8Hgx3LIOHViLfDIkZWRUaWH2VVwqKm3IeJHoysHO14
uzavEp6iV/ZvOzCywkixt2ErAS+i1osntWOkA80Ry1xPwurGb2tn3mKkdeWS
rPTmKhCQMVHuLMPIw1o7XRjKNSAkPLhgEo+RRkMcr8tuNbAQcJUtFI2RhgnX
fduf1MDLYdbMy1sYqT/VGB6//TXMME4+7PHHSJ0C53wRzVqounSfYXoWIzVY
KVP8UA8ndWzNO7UwUr39wJJzYD2sf1fq76eGkWrBIzx1VfXgsiusXVAFI7f3
a0kG678BsZ04/wwTI5VSW3Zjhxsg0VrDcwLHSCad3/+XVSO88ZZxl41dJfjW
ePOPuL2HdM67CwMxXOLboQCR6Zz3UBKjRm8P5BL/RkUyVgbfg7zS7N0cLy5R
H94af2tHMySGxOn/NOUSEeLjmSl5zVBDy9r8mxCXkJCVe/36QQvIGFo8dr6x
QrB0o3glQ1vBak7dqd5imWAMxAvcy2qFMOOhwjadZUIg5N7v0jWtYNnC/7Fa
ZZkYfZMjoYy1QV/R6Vxd2jLx1Kxafv/VNpjr7ndqeLpEaLPn9c94tMMN45O/
ML4l4lCAY8g/Nhy4M/sjXjh5gVC/U2WQcZEDa9oC2QWBCwQzbYtAVBwHcEed
nWquC8RE5ZdwpyYO/L063NOxZ4FI4jrGrDP4BGGpZfa1Hb+IQf9T98/v6oCA
aO3C5XW/iMBrp4tUJbogfcPK3Mj5OcItssZ7g3oXSOh6pzfYzBFWKXKafGZd
MCL38EDEvjlCsWLgeXdEF8ROlHo+450jmpZOV0TwdANT5qtnauIswfRzqh+Z
6obKIVpAc9EMUep7pudRSy9EK+oP5rVOEdk6f3GkpnphtOCRp1LxFJHEc77l
jvhnWP9ic9LNmCnictS1Wl/Lz6BjIlD83niK0MqIzz/a/hnUrsdIEjWThMNg
X+VV9z7QjtkmuPh4guhcK3JH1usLCDYLK5a9GiM67P/a4e0zAHPJTK7ri34i
vN/Q/e/QAehy3u1k7dpP7HWTz6tIHIB3dqm9NKl+IsW3R5b/2QCoSCj9nnX1
C8FONqWnTAzA7Cdh1VXtPmK4XWOl1nUQJMs4mLpVFzFrtvzvhuNDcKrA5/u9
8mZCzDDKuQoNw47ano5duaUg2nameLfDd/h04fbtsY/jICfjnhdy6ifQFjh2
czaroN1zrlE3bhISbl9/vrxeAFUtBhq33Z8G1p5UJeGtYsiFePOmMmgWxHIU
GL4+dHT3dI6UJHseePn9uedYTKRq92WOe2YBkpoSqsc8tqDeadMmdGgJLmSr
7vFolUdTnzeo0a1X4Jxc8BO9BiUU8+TqWVvbVdimn1zXPLsNsUQEjl65j6EL
zL0+7VFq6LlX4JPoNByhWdVHjEl11KYQz28eR0PZCgkq6ca7kPzNVqU/7/Ig
TRdhWUXubrTH7LNm2n1edE5N1Mq/bi/q8QrRiYrkQ68PZjVy/fej4j3HhGpj
1yDja60xvkYI0W3qO3JD+NHF8aWwxjpdBP1YbPVFAXTwQpC79BE9dJfuIsS6
8huyA+s6DlcfBaW6hu1yE0T5h/8Ei4cG6EFTcl2011r0R1juV4XLRsjfI35i
k/fvaFSi1Ljt6GH03VFp/bFTQijbtPXAoogxilgZ5e11Fka2Zz/UG9BMUNmY
4U9hexGk65n/ntZtij4qaPfvlRdFNCWvG/92mCEX5dM74h+JovIOTb+tPeao
ysbBT3ezGJI2WUkQ+mCBNOxG8yQyxND4z8IJ1V5L5H7TgLN/ozji5p7oyO60
QrecBRbxeHGURR8bf9dqjV5tclwdlViHJqWqS0IHbNBLbiiPSvQ6JPD2Tvq+
flvUVKI3GiUmgYp7+Ylt83aoVsa5LjJOAsl9ApVafnsUXGqd8UVQElk08YqE
rHFAx2W7TzhESaLCae8q+sbjaOn5jo1b+ekoNbllLHDTn+gaz8jbxOt0VHTv
Reuk1AlEl9/jqIAxkJh5ccaE6knk42EzI+jLQPsCNmjpMNhoMlLQTXKZgSbt
z46qP2QjZrCuhALljSMiIXqUDf2uVGpSjlgslbai/MD1q7gVZYWcNdaXKB8y
qC6Po5zGSiVKKWes+gqJrjBQwct/Ev7IZCNz75FCQS4DKQqE6RhksdE1VxkH
Kco/pqU7bCjnsG35VCjrnXpx4SzlFZPaY4co36gbzr1FOW9rBu0W5aL/oXWN
lPEhOyu+VQb6ONo5bPqIjbZ13+FK/Oflv4LYlG1b63LlKf8Wu8w8Tzm/SnNF
j/IkMC3iKB9LFc0OoqxUal3RRjk40dAsjrJ0Z7/NEOWnkdcXMygzAzwnZynz
+Y2ZVFEWMQ1jMbLZSM1bbqGZ8oKveJUiZQdX+8w+yi2sBw7alEPZsUcnKMda
K84ZUS6yfTO/SnnXmqKYY5T/D4SksLU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 6}, {-2.167567016331218, 133.19843325209663`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.435423427341*^9, 3.435423452084588*^9}, 
   3.435423494861347*^9, 3.4354235849415417`*^9, 3.435423724678959*^9, 
   3.435424048600258*^9, 3.45769092303036*^9, 3.457692906956259*^9, {
   3.457710597663475*^9, 3.457710622728888*^9}, 3.466793443115453*^9, {
   3.466852697732581*^9, 3.46685272548952*^9}, 3.4668529846190853`*^9, {
   3.466853654992978*^9, 3.466853668632921*^9}, 3.466854891493581*^9, 
   3.466856464197669*^9, 3.466950793689651*^9, 3.466950978412621*^9, 
   3.466951253789439*^9, 3.466951729612845*^9, 3.466952283698807*^9, 
   3.4669527054290867`*^9, 3.466952825943935*^9, 3.466958987119543*^9, 
   3.466960319053094*^9, 3.466960750437846*^9, 3.466961327827297*^9, 
   3.466964691052046*^9, 3.4670335444317627`*^9, 3.467034060015319*^9, 
   3.46704914499898*^9, 3.46704982485915*^9, 3.4670498855177803`*^9, 
   3.4670502839029016`*^9, 3.46705061446906*^9, 3.467051567452572*^9, 
   3.4671311109060173`*^9, 3.4671311574619837`*^9, 3.467131613291334*^9, 
   3.4673910349209337`*^9, 3.467391566692992*^9, {3.4673918576001873`*^9, 
   3.467391866151353*^9}, 3.46739204234247*^9, {3.467393325583057*^9, 
   3.467393334836499*^9}, 3.4673933704992657`*^9, 3.467393889646654*^9, 
   3.467396402734641*^9, 3.467396710202077*^9, {3.467396751492917*^9, 
   3.467396772484263*^9}, {3.4673969778230057`*^9, 3.467397006966114*^9}, 
   3.467397417091712*^9, 3.4673992483302937`*^9, 3.467399377778825*^9, {
   3.467400221281142*^9, 3.4674002262099037`*^9}, 3.4674019656889353`*^9, 
   3.467402269913672*^9, 3.467403311917995*^9, 3.467458607263139*^9, 
   3.467458856075061*^9, 3.4674591510195827`*^9, 3.467460880803678*^9, {
   3.4674609349973383`*^9, 3.467460950896147*^9}, 3.467461016698991*^9, 
   3.467461160436516*^9, {3.467461246299337*^9, 3.467461293095132*^9}, 
   3.4674614700012817`*^9, 3.467462289862234*^9, 3.46746233343371*^9, 
   3.4674623958952293`*^9, 3.467464343458222*^9, 3.467467138083947*^9, 
   3.467478606350169*^9, 3.467479591552815*^9, 3.4674803210188932`*^9, 
   3.4674804505595284`*^9, 3.467480797430171*^9, 3.4674808295266047`*^9, 
   3.4674828140860977`*^9, 3.4674830575532827`*^9, 3.4674834891601887`*^9, 
   3.467483524148651*^9, 3.46748357075039*^9, 3.4674836900233088`*^9, {
   3.467579270046608*^9, 3.4675793224140587`*^9}, 3.4675794739764433`*^9, 
   3.467580673734995*^9, 3.4675808502296743`*^9, 3.467581508334824*^9, 
   3.467581546884251*^9, {3.467581833501186*^9, 3.467581876033265*^9}, 
   3.467582745617518*^9, 3.467582872421495*^9, 3.467583055841029*^9, 
   3.4675830908454943`*^9, 3.467583479132938*^9, 3.467584083943336*^9, 
   3.467584149231894*^9, 3.467584251986191*^9, 3.467584322331645*^9, 
   3.467584476765842*^9, {3.467584611908104*^9, 3.4675846399685373`*^9}, {
   3.46758467859942*^9, 3.467584699951038*^9}, 3.467584731279221*^9, 
   3.467584808746126*^9, 3.467632232575018*^9, 3.4676323684720488`*^9, {
   3.467632433743792*^9, 3.467632476552237*^9}, 3.467632533327923*^9, 
   3.467652529309205*^9, 3.468590122123025*^9, 3.468593541769487*^9, 
   3.468593954889193*^9, 3.468594454324718*^9, {3.468594515259585*^9, 
   3.468594540330556*^9}, 3.468594671209323*^9, 3.4685947200607967`*^9, 
   3.468673738406231*^9, 3.468673802538329*^9, 3.468673837688447*^9, 
   3.4686739562479773`*^9, 3.468675315348648*^9, 3.468678415571004*^9, 
   3.4686785376215353`*^9, 3.4686787309538393`*^9, {3.468678767131206*^9, 
   3.468678782825892*^9}, 3.469193247608862*^9, 3.469193412568272*^9, 
   3.4691937217160378`*^9, 3.469193763992742*^9, 3.46919382500098*^9, 
   3.469479981923908*^9, 3.500842628040656*^9, 3.500843038716091*^9, 
   3.500843277565713*^9, 3.500845811584298*^9, 3.5008461036601763`*^9, 
   3.5008471909443283`*^9, 3.500847331129074*^9, 3.500847742657498*^9, 
   3.5008481498866377`*^9, 3.500898466751403*^9, 3.500898578993081*^9, 
   3.5009005685774727`*^9, 3.5043618179987173`*^9, 3.504362922617494*^9, 
   3.504362971595416*^9, 3.504365456095223*^9, 3.5043655338603153`*^9, 
   3.504365710546459*^9, 3.504365957069261*^9, 3.5043660218040752`*^9, 
   3.504366282819832*^9, 3.504366423119349*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Velocity", "[", "carpus", "]"}], "[", 
     RowBox[{"[", "3", "]"}], "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.4354231011880503`*^9, 3.435423111219648*^9}, {3.435423176935528*^9, 
   3.4354231993607807`*^9}, {3.467405824228409*^9, 3.467405938528356*^9}, {
   3.467405972027884*^9, 3.467406001516857*^9}, {3.467406062571788*^9, 
   3.467406063294188*^9}, {3.467459118451519*^9, 3.467459163603492*^9}, {
   3.4674796733120337`*^9, 3.467479683423181*^9}, {3.4675809002677183`*^9, 
   3.4675809046576138`*^9}, {3.504362976271202*^9, 3.5043629773996058`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4Vd0XB3ANKqK6wzmHQghJktJEshcVb1GhEAnpTaZMSYZIpihlisyl
EpokSqVIJZmTUmTqVEJ+GUrUi37r/nWfz/Pcu4fvWneffeTs3U0PTBUSElKb
IiQk+BwzdMswdg/WERLq/iKetFMn4t/Fyg1KNkT22Ec1t9EVpO77Z+czSm4k
NyPeVX9UlwwWbox2VQoiuVoGMitHTUgI/UPKWukscfh+sFB5dB+pqdz6ZadS
JjH137dQddSTuF/0qdqhdIsUBxpP3z56gpRHR5dsUyol3Z9S89+PxhHhGV4z
e50byBN3j5pXJZfIluP7wu+avyPj9r+0/rReJ8V+B9qzGzvIlk85nbZOd0iL
lctyr6OfiGJaXvJyw2LCMTjjUA5fya+I8NNVHSVk3psDd9bu+UbEpNeIHzn0
hCySdc0Ltx8gEf7e2s6fnpJ17YdqdOOHyMIhrcvGKytI+Z9gozdpP0i92+7u
y/cqiWPZy5elISNkWsnFpr28apKyP2c+ZTdKqrsWH253qCXLdn/8NXngN/Gr
bfxmOVBPOn7sqIct/5HFJZekpue8IsOdkuq02QTRVp2numCwkcRe9z9oYfGX
PKzMK6xa2USU5s7a5psmBBuDmz1v2bwh9zyCr5+9MAUsftY3vc56S94oJsw0
iZ8KrZSiV0BtM1EIbVLemzINJF+XVV6Z/Z5oGneuupA2HX5zRMQo0kLaPcJ1
zkQLw7m3d1hji1ZyR9NSvCJuBhSpjO89FvSB0OaVLbnhM0Emakd2aGQbIaxQ
3FPvWbBVrPHdREg7SaEdxZV8RWDti9PCxeEdJCTT6eRqZ1FYXzavN9+pk2TU
J7846zEbuL6Hsq2Vu0igW8KgtJcYrFl7uEA+rot826csYWkvDtknbps96+si
pyf6pnc4zIHCDv+VTXofycN+g4E5VnNhhpNy6/7oj6RZcR2rpTAPGo+HH3Sq
/Ugcl+xfnpA9Dz6XuyeKiLCk3HxPgK4MB3z6ggyuarLkRTz10kiWA5fVCsIc
tVhSW9/A3y3PAU+3P5oq61nyXn/TLTclDpQUhIvf0GbJ4JplH9PUOBA77rQ3
j7BEhvmr/0uHAxk7yipPbWaJ/7tL3Ou2HNiwfeuUPmOWaOzuy+NncWB1hVH7
IgeWdL28sH3iEgc+Cyc3PkRHa5r9+HKFA8KSqpYmB1nSPf+JdnEuB0aky+UD
HVmS2p7YYHmbA9+OXLjc4MySqft1RzLLOCD/W+OYnTtLXh1KhiUdHAiVm6a7
0pclrqH67zYs4IJ4V2tZaiRLxk41fpWS5sILtw80FcWS8Hjrsf9kuPDTferc
GHRmlpfkQ3kuPAh3+HTiFI5XlrlnjQoXRBb9kd0fjesf/9WppsmFlfo9XH4s
S/545/QstODCW8287+rnWRLpMOvPlAQu8NRnuNpeYcmBKulMkUQu+FfVltag
9VQ19DjnudAyNHJzbTZL/hvae0o2jQtyF4j9nKsscQssnE8uc6FCo59TnMMS
s3M2648VcsH52mDryDWWyD8tOvariQs1oTn+SwtY8lehWnbyLRcKclYWnUa3
nex8LvyeC06VzbHf0EnbRMWpNi4ELddbde0OS0RabDM0PnMhio5ZsqgI6zcg
Wurxkwt5rNHEtGKWPJbe97ePz4M5J+8+C3nEErjr+V8DzYPZzuqyr9HPjUJG
iyR40GycuULuMfZHwOWBICkeTH6f6l2Kbmv50slV4MGNxscBI6UsGU90fqKl
wQNtk0OPzcpZsn6O94lTJjz4T8doQ1cFS0qzwwLdd/JAZIHhGaUXmM+GRL9d
ZjxQVCg574re6nrPU8YSxwvJbBtFW1WP7btjxwPxt7B09kvsr4hAvVZ3HphY
5ocrVrPkwWTENJWzPAhslkhUrmfJ2SG5hLWxOH/biZcuaPvPj+Q3x/Pggq7t
7Vto0ephXbskHgxJGGRqNLDEOtEmOCmTB/p+/mOar1gyuXTNxNR8HjiMf2ta
95olmyy//PrQwAODvpZ4oWaWSBgFR/Q28iD+b/gDLXS/zgJ6tIkHaR8V07zR
iQomq7nveXD697zYr+jugUeH/+niwe6xjfrV71gSFXFusGiQBzbLUjihLSyp
L9zYd4bDhx7TrphnbSwJ2VD0JY7Hh8Igp7if6DWVCh8TKT50WOaYK7Zjv7YK
v8+Q5IMOK7wsAn1oysuKm3J88EnKn7O5gyViO4yy6lbwYal9wZP7nZhn367d
4qZ86Lxw7o0Pi/s7XLGTs4sPm75v+nARfWdi9Q7KnA8lLdzr1ej5HEZf2ooP
wb25V6U/saR3bYvGMns+FJxfzC1HR4bvnbvNiw8Loh61T3xmSYWsw4voeD5c
SMjfZ/yVJbKdjZJu5/hgOPDVzxPtn7Hh0I4kPjRNL3OIR6vPp/jcVD7M31tb
2oRO5z3fdz6LDyJPxlx29bDEe4b8RNZtPsSuh3fbelmi0N+uUVzPB3Pnqma5
byw5fm3LyeRXfPB6a/R0A7rV8W6r32s+JIxGRFiiY79En9Bu5kOU3aWUWPR4
x/qG8nY+VD0V/T6OftOY4lzbz4fSoi2u9f0sCSs2y/ooSsHRo/pTrb7j+hoN
I7+JUbDWTi/kMPpDn677yBwK6MXM+2j0Shm1DSI8CgyfPBYuQ3eGzWhRX0CB
6zpZV7kBlmiZFs8LXkqB2qReUAe62+XmaNQyCmxE1ziNoOPCL3ckLKdA6UHN
UrFBlvTcj7mRo0FBqrvJOk104kLHfxrWU9Bv8dUzDj3YLxEsY0RB85vNwVpD
mNeMuQeVt1Mwx6h2eDvaQFZ4+0pjCsxVynT2ozN3Di3Q30WB1hnr/afRhg+r
ig9ZU7Bg+nm2BX31pP/AI1cK+rx5r92Hsf/l22z2nKHgq4XHhuAfLLnlUZeh
F0NBvE3JrBj0lLLStiVxFKjLh97NQF/dk2U1do6C6ULdhQ/Rg+cczBPTKfD5
Gab/Ax02c2hbw3X8fWHEO5ufLGk2Y6Pv3aTAWe9khQt6yZWmmox8CgzE/ZJ8
0fVwb4trIeZR+J9EPFrCP2CzSAkFoilU7nP0jX7hDRurKSjUWOesMIL9qzUa
oFJLgd3BQnY52iSq5yGnnoIjM7/rrEf/UqxZ19VIge5I3SUTNNjGrgpswfHt
3SUDRwT1n69a3ENBuMVATT1aSVbMJbOPggdnEsPfo/3cJvLC+ykYbLyxiEXL
zO5avGuQgqp+K/ERtOOm7EVDoxSM6Pefl/yF5/m95QuWzqQhZX9qwl60Wvqv
ilkiNDzUOeh5AG134rFHtygNlqb2qw+hnxsavsiaQwPzR8zjGDq6y8FTgqYh
X9WyIAVdWrFM6hdDA3vjUflF9OC1ny+aJGnI4F26n4PedSREKkaahgIXKau7
aCnRzEphRRoOLf7p2oDePvCv1yclGqY+Pn3nLTr4zVLpcmUaVL6OdXxAf858
4HVMlQaNV4H9X9E3NN5K/9CgYWez+YdJtPZeMe8uPRo+lrhylEfx+aTXJFO6
iYaldZuqVNEXF6dWpenTML8hxXEFevrw4oUWW2kYCPi8VwtdG7Gxus6EhvNW
cgqG6EkX0SPXd+J8r4Uld6DVTRoXRpnRENTzcMQUfW6B7ZFNljQsefnEwQpt
fdtftsSOhpFVdsqO6LOJujXJ9jSsDP1u7YJ+4j/Lx+df/L5Mlp8bWmFzUs0K
Rxq2cjJcvNH9LQU+ue40+NfxNY6jZcp85SI8aciz78s7gTa+Qmr3H6YhfXit
SBi6yK1ObuFRGtr3ySVEort3nqsd96Vho4fEnNNoCc09R1v9acg0yvI8gz42
rbc2MYiG2JnWw3GC/W3Ump0eTEOCvov2OfSJsNNbLoXQYM5755yEjhBWe3Er
goaAoCLvVPQs/ePT70bSIL5CxjgdfSrilV7JKRoep7yZm4mOmXm4rPIsDe/u
MtpZaO4/zyfqYmnwDEzPvSTIK5LSfhNPw8lFNr8vo+kqB//Wc5jvnd1q2ehk
kfv3u5JoOK0RaXAVPX+ryGh3Mg05BT2bctAZp6xW/y8V97PGRykXLVtz/fCP
dBqialX7Bb40e6LgdybWJ3BWUp4gX6Ptg38v0pC0U1jhGjon+oLajMs09O5e
mCSwSt2gq1g2DdHnTfsFviGud52bQ0OqZJrSdbTa9oReiTwalHt/bhK44Ozn
xQuv07BjnrWBwKsaVjso3qRBMaV2mcD35p68sjSfhudn9MYE460zfs+uKMB6
jD24KnBJ7BK5dYU03GfVNAXWafS31blLg7ZFRr5gvU84tRmbimnotp0iKrCe
qXTb1gc01M+w+Eewv+fxbvNNSmgQM091FuSh31S22+IxDcUWlR6CvKp4nPN7
y2j4SrVaCfI02mX/dn85DYWp9cpX0PXnCnnOzzDvwYutgnoYv51u6lFBw3HZ
bR6Cer2mzGN9Kmm4tbqh9wJ6l3lO/bEqGt5rLjIQ1Pdd0phYaA0N1NrNkYL6
tzFpUTENNChs/nQ3GW2zu78ysZEGJWeLS4L++Zi8YUZ6E54vt6O8BP3VLdkV
kvuOBvVqidIYtKPVivJbLTSEFRzSFPTnt9SQv0UfsN6sR/Ip9OACxWPlnXge
bfWaEo72svZ5WPmRhtZEx9kh6JH0yrG6TzQs3jkxFoT+I+18pPUrDdeMhoN8
0dNk891+DNDQY5a22lnQz3ZCN38PYX7baGsHQT9nmXz7+4MGqZnzHOzRYvI/
D4qN0WDV764g+D/TCpr7FIUY6Ev02voPGlLCR2dNZaB/WWTHRrTTnNdn+qcx
8L/Q25YE/WjM+WHhTAbunVIVXoO2r0vn6c1lQLT3qLo8OlqvN0+Rw0CmedW4
FPpu8WoQ4TFQ+4x3mxGs51K96yuagYrHETVi6Fs+Qi9sZBiopE6/HcHz7f03
I2s9WQbqDmxtGUBP2ZcyrCjPgMhoz7NewflquHLh/xQZGJq4t60d/Wfhv74B
yxhQCNXWeIbWr6pUSdZmYFGy1MZTaA8dfnmADgO3mrYVhqBTCu0sbIGBnCYV
0QB0f8bvUKVNDBTofnBxQcd7LW0vMmTgZUnJ5FZ0x4KYmEYrBvhm12yF0bPi
PijetWYgO5/SHMfnzYoZyo+SbRhoM/k9NowOG3zSY2uPeZyVUu1Cq1QM6353
YkCsxtf2Afqom/lPUT+cL6x41AE9qLNMhglg4MbwtB170M5zp/+zKJABjjgV
uQNtc7sgbf0JBrpZ7wtr0frDYhtdoxjQNbtvPwNN+zyLq0thYMzx/tpMfB7H
6qeWtKQxYNq5Py8WLcp4fvmSwQB4xo+HoCeLZTQnsxjICnU0OIj+8tuvS+0a
A9Oyw93U0EWB6stjHzIQ9f1/k/d+CM6HmZbpjxhotu2MyEHnynSE5JYy0LWH
O3genV52uvnJUwZGY1QdfNGhU74GDlUz+P5d1rUWbRqeUWv6gYF8ncrZBXif
GYoWdabGGbgfUigVjfcdqTBdviJa5IFKlOA+ZBDgW7oK/bg6deQUOsOpm7sL
vSL4QH0Ueov+05J4dMDK7OMn0Vl//cTnTTBgdquuKwRt4tV7W3QS1/PqaYYf
+piT7J756HsHzEQEzrGzEFZB/3jT5e2LntheYbkFXanHGh5F5y3NmhqJ5u6J
+e2NnvJl9y7hvwx8Oxq/0wOt2hYzyUfLFdwpdUdbNL3IVUDve16zROCb5asm
NqK/+Pb8PYS2zJx3NQS9TLL2ugs6LNHAOB79Xa6QFjg/OuhPFjp4esIJZ7Rw
QP/2cvQf8w0WTmh1r0W/X6HfvJj51BG9x8nqchd6/7waVYEj7OK2DaIvaJw8
fxBdYPFy9C/6hLr2VIH/D0sIP1Q=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 6}, {0., 0.59273303925921}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.434123203732888*^9, 3.434123214018982*^9}, 
   3.434123262965726*^9, {3.4341234023994083`*^9, 3.434123449746995*^9}, {
   3.434123507887905*^9, 3.434123548130678*^9}, 3.434125036338992*^9, 
   3.4341250853792133`*^9, 3.434125122616885*^9, 3.434125227316805*^9, 
   3.4341324500747766`*^9, 3.434133289676886*^9, 3.434133386224289*^9, 
   3.4341987878000097`*^9, 3.434205249833119*^9, 3.434229884934246*^9, 
   3.434230943190527*^9, 3.434274349879294*^9, 3.43427443055289*^9, 
   3.434275616048737*^9, 3.435344654958803*^9, 3.435422996138465*^9, {
   3.435423185808949*^9, 3.4354232003137197`*^9}, 3.435423452395603*^9, 
   3.4354235874737186`*^9, 3.435423743256112*^9, 3.435424068541151*^9, 
   3.457690923340119*^9, 3.457692907261907*^9, {3.457710597758914*^9, 
   3.4577106229106407`*^9}, 3.466793443200304*^9, {3.4668526978370953`*^9, 
   3.466852725716469*^9}, 3.466852984814372*^9, {3.466853655095291*^9, 
   3.46685366892833*^9}, 3.466854891713798*^9, 3.466856464380417*^9, 
   3.466950793875657*^9, 3.466950978614913*^9, 3.4669512540300083`*^9, 
   3.466951730248788*^9, 3.466952152875122*^9, 3.4669522839771748`*^9, 
   3.466952705731889*^9, 3.466952826189259*^9, 3.466958987829548*^9, 
   3.466960319623477*^9, 3.466960751208199*^9, 3.4669613283975897`*^9, 
   3.466964691613669*^9, 3.467033544489612*^9, 3.467034060115103*^9, 
   3.4670491453037863`*^9, 3.46704982494493*^9, 3.46704988646587*^9, 
   3.4670502848086643`*^9, 3.4670506154064217`*^9, 3.4670515683567533`*^9, 
   3.467131111376375*^9, 3.467131157945771*^9, 3.467131613689402*^9, 
   3.467391035151476*^9, 3.467391567505762*^9, {3.46739185769808*^9, 
   3.467391866722168*^9}, 3.467392042903873*^9, {3.467393325667263*^9, 
   3.467393334917611*^9}, 3.467393371412837*^9, 3.467393890570997*^9, 
   3.467396403622621*^9, 3.467396710957881*^9, 3.4673974178876667`*^9, 
   3.467399249442274*^9, 3.467399379065921*^9, {3.467400221334669*^9, 
   3.467400227502452*^9}, 3.467401967272764*^9, 3.4674022702723217`*^9, 
   3.467403312542473*^9, {3.46740582040749*^9, 3.46740582724256*^9}, {
   3.4674058873028307`*^9, 3.4674059393011217`*^9}, 3.467406004222601*^9, 
   3.4674060639194202`*^9, {3.4674060965968313`*^9, 3.467406118018145*^9}, 
   3.467458607318235*^9, 3.4674588561287107`*^9, 3.467459133449315*^9, 
   3.4674591642249317`*^9, 3.467460880891019*^9, {3.4674609350952473`*^9, 
   3.467460950982122*^9}, 3.467461016786573*^9, 3.467461160517777*^9, {
   3.467461246397874*^9, 3.46746129319811*^9}, 3.467461470083152*^9, 
   3.467462290026963*^9, 3.467462333524152*^9, 3.467462396035522*^9, 
   3.467464343505335*^9, 3.4674671382405157`*^9, 3.46747860639749*^9, 
   3.467479591640448*^9, 3.467479684184286*^9, 3.467480321179757*^9, 
   3.467480450670093*^9, 3.467480797649166*^9, 3.467480829631146*^9, 
   3.4674828141511707`*^9, 3.4674830576094427`*^9, 3.467483489410192*^9, 
   3.467483524322941*^9, 3.467483570835052*^9, 3.4674836900883503`*^9, {
   3.4675792702073183`*^9, 3.467579322615226*^9}, 3.4675794740806837`*^9, 
   3.467580673803976*^9, 3.467580905380282*^9, 3.467581508395604*^9, 
   3.4675815469432364`*^9, 3.467582745810154*^9, 3.467583056094616*^9, 
   3.467583091054405*^9, 3.467583479326021*^9, 3.467584084269044*^9, 
   3.467584149564579*^9, 3.467584252514139*^9, 3.467584322591878*^9, 
   3.467584476985551*^9, {3.467584612197249*^9, 3.467584640380056*^9}, {
   3.467584679012501*^9, 3.4675847002330637`*^9}, 3.467584731939571*^9, 
   3.467584809012692*^9, 3.4676322328614807`*^9, 3.4676323689683247`*^9, {
   3.4676324340270853`*^9, 3.467632476823433*^9}, 3.467632533811075*^9, 
   3.46765252970686*^9, 3.4685901227559423`*^9, 3.468593542000692*^9, 
   3.468593955150271*^9, 3.4685944547930317`*^9, {3.468594515771721*^9, 
   3.468594540740861*^9}, 3.468594671449376*^9, 3.468594720571541*^9, 
   3.468673738780747*^9, 3.4686738036481123`*^9, 3.4686738390888767`*^9, 
   3.468673957109674*^9, 3.4686753155891457`*^9, 3.4686784156850843`*^9, 
   3.4686785377408113`*^9, {3.4686787671743507`*^9, 3.468678782955841*^9}, 
   3.469193247657935*^9, 3.469193412617525*^9, 3.46919372178302*^9, 
   3.4691937640540247`*^9, 3.4691938250534678`*^9, 3.469479982113536*^9, 
   3.500842628164776*^9, 3.5008430388352213`*^9, 3.500843277665145*^9, 
   3.500845811667297*^9, 3.5008461037160883`*^9, 3.5008471911019163`*^9, 
   3.500847331208242*^9, 3.500847742733588*^9, 3.500848149940346*^9, 
   3.500898467040509*^9, 3.5008985790370893`*^9, 3.500900568681471*^9, 
   3.5043618180959377`*^9, 3.504362922859983*^9, 3.504362977887113*^9, 
   3.50436545617762*^9, 3.504365533896777*^9, 3.5043657105702677`*^9, 
   3.504365957108244*^9, 3.50436602183879*^9, 3.504366282885707*^9, 
   3.50436642319109*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"springMoment", "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.504365202307445*^9, 3.5043652205114317`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8VN8bB3BEUYqYuVMKM5ZBIpU2xTmWFCFLJLRokSTkW0IL2SpZyhZC
0SJJKqSQc8maPRVZspa6M5N9zfI7v7/m9f7j3Pvc53yec4Z13N3ylAAfH98e
fj6+//9O7XNLNnf316E0zoxObGORISeVlBvYR8DJlZVf/u+6v/0u4Ww3oDH7
y/v/zqS3P/ye5AV0X1V1jWMP5eiHubKvgVvcsyL/t5TKt8KFlgAw4944Poqt
7R26sTopBNycHn88gn2sUic9yjEUKOztIIaxA4jRtQ7sCFAiFbhvEPvzG6vq
qPE7wEKD0uNhn2xTC5psiQJVe1bOUdjj/MLAoSAGMJhTPr//X69K7zSZFAc2
eqe8/4nNsCjKVfSLB8JigkW92M+849xDHRNB5waV613YNZXGP63YKUCFlW3V
iv3ykoS5g+BDMK0j5vgF+9Jtv6yI8YcgQ0BtYyO2cM4h59GWNNCjkrq6Erux
oqJcsfoR+Lh8amMpdkLbZnnbgscAli1d/gF7ncCKH0VJT4HMv2PL3mCP0C/v
HAxPBzcVHqm/wC5U+R3P8nsGHnqm0J5im1iUWoU4PgdWvA/KCdjuD72q97Nf
gvTWsPNXsLfn9rEDGNlAbyL4+QVsvpPKenaCr8CZks1PXbGrL8U+CBt/BaKv
Pv1pj233wN1uuOUNYAQ2BW3D1lFh3wo1zwEHTSyb1bDlcjry5atzwFdbv355
bE6FEd2mIBfUpXw3E8O+8le+sSDpLTCNddPv24r3y7tt3oqeD9Zv2Jjegm0g
cFeNF54PPn6Oq6vBXk7Mh8r6vQPWiYbHc7BTtFt3BzkWgNATmpl+2CVhYYWm
7GLAT7/zXhS7mPpeuyyjGEiZ+Ez+28Iii/Yq/ahWRUCF2MSjsO0FHPkerSLB
4a0jC5XY1sX/5GRlSoBl78nSa9jGWzc6M1Q+AnbD9vc/NFnk3p8tHl4uH4HR
h3ue1dh7Yq75fM38CFSOxPflYBuM1IRGq5eBOoUL3BvYOi+dssQ0y4Fl8b6E
9dib2UkjS0Al2Clue9h5M4vc9FXvn5N/JXCuiY40w9YI+rOooqQS/C3R99HE
Vu/dSg8yqALXNox5LmxikcopTdv4jKvB5jP2C3ex1xJLrk4dqAEX5qe8Mzay
SKHFnkv+uDSA/YY/v6VuYJG/jfzERtMbgJaBu/517E/hYYy5/gYQsuyAxzHs
ytDm6JsbGoEmS3aZDPZtib+PkjIawYFYK4M4dRZJk5MvK0tuApGCkyW+aiyS
rRsuSA9pBtlhKp8lVXH++6KFEx83g2+N/PqcdTi/wYmish+bgbbnu/9Ksamq
dJoK3xeQ8Sab5oGdbV6qoO37Baz5z+xAlQrO27FJg1NuX4HVzsgKV2UWaeTn
GJxn0wKiXAftgxVxfyJLDFMvtAAT16lca+y1D1jC4VEtYHRZY4Mi9lBxT+jJ
+hagltZqXK7AIuPmHe9IGrYCH9c6a37s/qvH75/f8h10qicXnZNjkf5XTrxW
o7UDWfnIJwxZFukS9tFz9aZ20DvE3tAtwyIPJMlrCpm3g8YMjs8zbKWivrcd
t9tBw99fltux6/+dKLq9qANoufRLWEvjei6frPwz0gF8p+gfA9awyHyfU51P
mn6Ayyn/3r9ksMinOmdbpEZ+gJEc+bkz2HGLzjdFSnSBivnAcQVsr/Ar5T5W
XeBpSY1QIsEit6ZGZ5l+7QLs1vBH/nScz/7uYl/XbmCqdLsWSLLItmVikXIe
PaDFpzQ1eAWL/G53doPnpT6wboeNg5ogiwzt3eN6L6QPKOyYCGlfxCK1XBQy
imL7wMn1gW63sJN8OuWW5PaBvG27L/QL4HmL308kDfWBW3+jDt3jZ5EDXzfP
lZ/pByM7b9wdmmeS4+azn1Y7/AQVUpf2eEwzyZV7wp1K4AAYUs/9mcZjkgYZ
RUDVYgDoJX0v3YbtvYy7KtZxAFgefmlWy2WS3Q3GNc4BA+CFlqbnGIdJvrIV
1hAvGwA2AjYDkGKS5i6B00f2/AZt5YTfp19M8k64T9is6R9wmpm3/GEXkxT/
curNNnsOMLqWJmbZyCTlma4ZwccHQf958+7TL5nk9s5zNbpRwyA6ZuvZhVtM
smTG3+TL/VEg/34fSRxmks6oqqo4YBzkPplgt6oxyYQT6VL0Y5PAoF44IX1M
llSz7ZmYPzUNEtcZtr/zliV/jO6vh0b/gL+lm/L2aRlypGu1BmE9B+rfFJ+P
c5Qh72T6nj54cAF4B2QwXxdLk2wxYVPv+3wwaIt5RvtqafKth39mxAN+GGto
7Z9vu5b8ohi9xCJKAMrHJBSWxa0hFQKblQ8nLII+RwoOPsyTIneYd2k+uC8I
3dsN5eKqV5OdHsE64WFC8J9q9qR29yryzY5Dy8vvLoYH/UXZPl8ZJGFT+f1Z
8BJorlSQotdIkKCX727pBWFowa09llZOJxMI5+VsbxF4L318ejaBRgaknLmx
xWUp7Fl79u5qX0kyuT6+IsJjGdTj07oxoyVBXnWLHpL2FIUhMqdW9s6KkxxH
5VWHji+H1pv7TI0ei5G35yjBH04r4ItpcnKX9HKygLtncIWdGHwnMfXRsXIp
+U1xe6+Wgjjs2Xv//OqbwqSzyokN0U/EYUPKzNUylcVkiY39ZV2ZlbDUvuac
4lJBcrMtlUFLXQnrJv2X/GjjJ10DDVu010jAGuRdUdC3gG46Cc/wR0vAN8J5
G8fOzqIP0o4LFE0SOtVUPS/nn0bv50MWrYuQhPZnLU5orZ9AEcOs6G13JCHj
3YuCIuYEOt5fJLc7ShIuVnnyezd9Ai39NKJ7LE4Sqqi+rnedH0cOsUf841Ik
oUii2KBo0ziaV906J5AtCQ3d87ruXRpHBod+TrQ3SMLCI7KX+qrHUH2OPhW+
kgZzb4NNGYGjKEA79+ddSRrUj97bJeU7irZWKvTE0mlQdGxvULTHKEppE2pN
Xk2DPHvpooTDo+gcf1V5FosGNy1Ei85sG0Wi+01S6zbS4Mnuh2tX/x1BxtQB
2+WWNHiU7fT43dERVM50qgiLosFZyuq4ne0wYnY1rXaLocHe4BTnNRbDyDdZ
+9z+OBp8KnKuoNdoGGlI0WkSiTTIVinTD9o5jJIkyxzvpWLbPFgkKTuMLiyW
m0t9RYOoVY06OjCEFLidm/PraXBsUUNf0ZUh5Pfc6EZ8Iw0azy77uddrCLU5
57X5fKbB6Sqwr919CN35GXZ91zcarNtVYCR5YgjN/tjZUNJJg+fWAsVGoyH0
pSnBpZZLgyLrs4SvrRpCQfnWqT1L6TDy07pjeRcHkUbTvpscUTrc9mJW+cqZ
QdRO6bqPr6DDU/rxSpaHB9EmGXVtEUk61E/b80l19yDqClr8XWMNHVZFGZTG
0geRlmW+uL8qHcqWpR3f/f4vGuKu8pcxocOLd01ipET/oqTFYqeVzehwjuch
+Yn/L9rDFDLbZE6HBf7b/tyc5KEUq+E1hgfocMq2Ikmzj4f2FVTnn3OgQ4nd
z6BBIQ89veE7WORKhyvvOjvuduMhB7mOI/bhdGjF2rb1WxcXvfSoS9aLpEPx
rw4ZfK1cxI+KO1Tu0mGTXOi97Y1c9NQ+1W4qBj//s+XvRpKLhmKcbGKT6PC5
54LnozQuCloybNqQSYdKjM6BRmcu+mbdG/Y2iw6vvXjr3uzIRSqPm2uSs+kw
dXzMr8+Oi+rhWyPXHDo09h7L22DKRat8L+8WKaTDk+123d6buOgFV0hb/xMd
/vKt14pd4KB5rcnL62rpMFR1+buL0xxkcet3wcp6OpQ+n0aeGOWgCcWa7d1N
dEi9kbrgPMBB8Ogdzavf6XB/6x4nWiMH75/U+vzfdOjaW3pj4hEHsZmiZ1Mo
Ohzl0T9mp3CQj9tcRjAXv+/cQKhXAgfJLOtWOjBEh59L95PrIznI2eCJ/PAk
/v4bO8t2Xuagf283rFFdQsD3+Vmw35qD1JMmyoVFCAj5Fy6GWXDQsesfPH4t
JaA0o/e1rikHle3bV5G6goAlto+0mw04KKzb6fwqgoDFIjNPozQ5qLhcbe0E
g4BKYSUSjzQ4aOj5WEXzagLm7XoaTK7noAMXA9ZGShOQ77vodTlFDlq7NKVS
SJGAA1+2NgYQHGQ2eNKzj01A/5QGr38SHOT/RVW6RJmAglPiitfFOKg/5b3n
lfUEzF7WHJ8jzEEvNn+VHt1MwILbu7py/1Fo12HRC916BGx92Deh3E8hN71m
mWIDAjbKazA9eyj0UCmx+r4hAXVmdlpW/aCQ4IiS7EFjAt6ybGm8/51CtSH6
n+osCIhCBLW6Gig0f3bpxUwrAnZe3px5p45CGhZNsresCbiHnaW4v4ZCMWuO
XjQ4RMDP+yq2jlZQyOGVL7PwGAGFX12qaSmmUESsbk38cQJmKvbfHC6iEOkr
7OV1koD737DNVxVSSGF3XM1GZwKSJf/NhuVTyGbdYS8xF9wf6dSetjwK3RRT
YPHOEnAdpBq35FKI+/211zN3AhpH0uslXlNIBnmzQs4T8FW0VEdMNoXMH4Pa
E/8RcEL8+pj8SwrlutWxZC8R0DliSt4lk0K/rGJqZ70JKDGQoKb4nEKrdthf
avMl4OEvq3R5zyh0ZdGf2thrBPxmZRz4+Cn+fn2tZUn+BAy5liB99QmFrgfd
NkoLIOA/B/EVpx7j/pV33HgWRMDxDRwrh0cUChFSr3gZQsC9253+Hk+jkLCh
n2DeTQJWvv3Q4Z1KodCQRr3CUALqc9VkUh5SKHLJf6gygoC6fkb3iAcUkthb
Nld3B9d75FzdmRTc35v0XV+iCPhhMtGqNplCRLWTb1sMrj9shYoOdrzIu3fd
cQRUdhA0RUkUkjIWmfwVT8C2Z++K92Mnh9pt4SUSeJ5OXx28TyFmTeZ/o0kE
VCk0vZmCnbZs7vV0CgEvCqT/cMBWMDEbWnhIwMDqbL912OlhD9QXPyLgRovH
Lkuw19UNuYo+wflpI1NGEyn0YrlepkQ6ASOf6K4ZxFY3i/6zKoOAHaPHu6ax
X0f0K8lmEnBKyJGSxOs1G7Y4KWbhfK313qmN/VbsxmPVbAIOefc3XcTebt7a
u/E1Aa3te198wC68o8LankPAWsGXNTT8PTpNvkd18ggo+TZQ7TI2ubI22SCf
gHPZD5qGsPUspTuM3xPwyGad/Iu4P2VRblIWhQRc8L/fKYL7adiMbA9+IODz
76P6WdjVkivvHUYE1LoW+Oco7r/JgeNfT5QQ8HR2SB0L7099TI6ky0cCEi93
DI5gm38VtPQox+8raDVtxvv5mW5zx6uSgIsYD3+X4v0+YJNef6WagL8FaotL
cB5a4qZEA2twf1F8QwPOSwfj/q3IBgI2ZwmlrE6n0BFbbmVsEz5vHGXsrHH+
euK1Fyc1E/De7yrThxk4r6u7A561EJDlVdZ64gWFhtYoXinpIuCBR9zTqW8o
5OngVVDZg/Miqlpjg+djPKlyqq4Pz//+zqNr3lJoRtrlYtsAnl/nCKnP7ym0
iJntNjpIwC0z79F4Cc7rMb6s6WG83kQ9QaEM5zXVgrMwSsCDflPJx/E8i8qN
nRadwuddqB9bFM87obDDUZGPAWdNB6XpXykEE4InhQUY0IftvjeyhUJnVnwO
5y5iwKSs6TSijUJFUy4FOUsYMCLxzU+TLgodr0uS1BNjQNUcszsHKQqF6f3J
UFzJgPFlxSo7eRTKy98CRSQZ0Gyd7l/VIVxPWr1rI4HXl/NNaE5Q6KUXX8UR
GQbcvyA02C/AQa0cEwc9JgMaX3rUsHExB/E7JowoyjGg9h+7b7dF8Hm7b5Ms
T5EBlSLuW50W56AZ2ZPel9UYMP/B/L9CGQ4yrK5cF7+LAYv55XzatTnIQ4dW
clmHAasbmjxmdDkoIefYwaOQAU36ngexDTmImzwdyDZgwGtZDvNPzDgoylO1
M3cfA6ZFHVLWO8ZBP9ZERjbZMWA9iqj5G8xBl9xsxpb6MKDW43vjtHZ8H+io
yTAuM2BgqOsFyx4OchET3Ct/lQFtYr7pPcD33ZFXr+/vvM6AX4ZBjdMYrm9E
VN/1FgPyD8ILWSu4iPD6eLcugQGvVpddXGXIRblXNTbcKWDAxgKprKP4Plc3
W3IoqYgByW3r44KruOiZzI+AZ8UMeObz9bwCfP8nodvfyFIGlIMN0ZY9XBTI
P3B1+BMDGqyqfbd9EQ9ZBifXWrYzYEYUMdppxEPDYUtd6LMM6H52y4OQXh5a
G6RLU8Q2Kd+r04y957J3sSZ265/Gbln8fyX5zC+JA9gXw4HGe2wjw9LCKOwF
RtwUp5+HUhd8lovPMeApQaUNlgM8ZOH559XSeQa0CK3fzOLy0JUzTHsp7Oe3
vXXdsNOPHRRah+2ies+yEHvOrPyQEXY43ORnzeOhDNVUgZvYrxO7+EP/8hD/
T9sDQgsM+KCVnjU6xEPrOyLnadhQSmQEDvPQweaKZwrYSv0eWhHYWSWac/rY
25alfFUe4aFDKeJPA7C9/Ny2HBnloaDYPeZR2Kc6hOIysbPDrs2kYge9XTkz
hS10mWtWgl3VEVIbPcZDGp7y043YyuwhrR5s+zN2j7qxNQfqXqiP8/C83TUd
wvaXYcpdwX59sGpyATvz06/Eauz/AfvAI48=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 6}, {-8.60930596026488, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.504365221761455*^9, 3.504365456201593*^9, 
  3.504365533960178*^9, 3.5043657105936537`*^9, 3.504365957147263*^9, 
  3.504366021875984*^9, 3.5043662829696712`*^9, 3.504366423269865*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BodyEnergy", "[", "carpus", "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.504365202307445*^9, 3.504365251302239*^9}, {
  3.504365289754921*^9, 3.504365336351358*^9}, {3.504369205367814*^9, 
  3.504369220665474*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc8ll8UAHApm+QdzyuJzJJIpIlzSbSIkhEVKaF+SMsqIytZWcnWIPkh
I/ohUkays0e2EN4HJSXjd/31fr6fz/s8zznnnnvuFbtof+oyKwsLi/caFpbV
39/H7eL17D3UJCUSQo53NKr4Xtq6rUH6PLS4SL5VMAlUq2MO2wZJ20EEHIdc
43/V0undSZ1xt0HrpV7pk6FStencQ4HXpO+BjkS4zA3jWjUhmbailXYv6L/E
v8gv1aam6hSwqzrOF5w4x3/bDPWpmVeppYZZBIBM2XH257kjal7ED2Ez6WBI
K91x44zxpNqXnNPVYXOh8Ketq2OYnFG71CXnPd8eBnM1Zc9YpH6pza3hBLPC
CJDZ+8T6Xs2Cmq/M4J/3cVHQ7yfveX5oRY2hX5wn5R4NBQZX0vTyWeGlU5R9
gEUMFJ+gLz/LZYOaqmMjp6UT4F1PtbG5MS9k3qHoma1Lgn613LLqFX6489A9
I3guCVzWr6mbJQWAM9fE+kf7UxgoG8sRkiKgsbKyQqr6GZDXQjt32wrCky4l
CePC57B7X332yxoh2M66vrc4LgU0WVn5EoZEYZbuepAMSoWmzCSSX0cMimTG
osXcX8Lbzy0s9/LF4YT+h9O+Fq8g5ubpnwO5UmCfdLv6pHQmaDtnFNcY74B9
eUPSXowsOOI/cNdJSh5YLm3TOLvuNQQ6+TyWYVGA6juRiYFzr+GxQq7t0eld
cDbR/uxMew7EvlY7kii1B9RkpB8E6OVCvMsHWpbmXhDP7SmQqM4F5s1/jdts
98FE5VG6YWEeJIp4Bl+tPQBuTInGwrh82HGi9n3OMIC5U9fyaXoBXI3asB0l
IJzXI7mpoAJ4ll63mKOjDnzEcoCo+1sIO6Q+plKgAQmqHYe9LQrh+II2/1De
YSgLDCzSkS4Bfl4R9vtnT0DJ985anrQS8HXluxJ5SgeKj2ztrZYthVqht6PN
urpgymrB8kzwPYwoOlR9l9GDMyV/xUVFykBBl/nul/YpOLZnlzVD5iNkCKt7
ozFDODLS7nDb9iNYvlq3O8vHCLQj7jm3pn+EgOD9EbuljEFztiYgXL4c1n9W
Db9vawJqmVYZ/LsroHOhulFpvRkoScfNckAVfFy34fePHnNQbNX4a+VRBYNG
R5MtVSxAwXt8bWVZFUhLp7L1xVmA/OAeurfmJwgK4t/0x/wibEto2styrBpq
FAxViuYsQZjguPvboAa+PaCl3NW/Amzsjhzjtg2wT+3fs7u+2MHYUXf+H6kN
oB6iMxh2zB4+BwUyloYbIMcrJ7v3oz1UBTSH++9sBDXVR09jzBzgIYX5LC6t
Ea40+PvZG10HmrhEeXl8EySmvCPpljdAWj1oHd23GZK8225c/3IHGEPhnDHP
m+H85V/6upudgNMnhlf0YzPs4RFvS7J2gu+fUmkyLC1AyEYMprA4Q5beB0lV
lxboKN78cO8eF9hnPq952a4Vnj502m5f4AZH3S183hi2Q1K3YusOLk9QDCnT
Sr7ZDrntqq8FlT1BOFGMMyisHQrpouaqFp4wXTIQcKm+HQZnDI7sKvSEqGWL
UKpWBxycq/b4aOcFw3cvxl5X7oSW4qju8MH74OFmmS1H64aSm1JWv376gm3g
R8eNit1wNXtlYM02PzCIk9jNptcNl27p+2mZ+sHW4qH8nofdkPQ7zcT1gx/U
/7Usfri2B5RY7twJD/cHYddLVeOzPTDyon7OHQVAgfPlry+aemE6jc/rfEUQ
pKhdbRea7YUPawPCfdcFQ9Ta600hlD7YZqViPHsoGG4HuVU4n+4D3v/EeSI/
BsOe5PAMndY+OLm215ejMgRMh/tLXK71w8nmFwpfJkKhi4c/RNxhAOo6zGum
iHDoPHt1p+OdIeAJ1NONbn4MAYPa1x77DoGEcvpOtj+P4YCtZFpx5BBopbix
hYpEQ5zzV3GOvCFQ+LQ9asUmGsyjTxJx00Pw4vADTy3WJzDaqrRUYTMMGjrK
w7f2xcCc3uLnjWYjoNq3knG5KA4EtIOsytAozGzbcWKRLxk004pBVn8UfqUL
N5tKJ4MTz6RgpMUoBJ13VqlTS4b+hmM11l6jkKz0qmjEPhleG3MqbCgfBf0k
u9CpL8mgZ3v/z3ntMThZ+vg/k7inEBrkHLioMw6f7WZMMlSew4aWyzl7TSdA
tWEjPTQ3FSS2XEvzuUgCe6V7U+qZLNj39Z8a9bAZ8Cn0TRAsyoWyBY8TLbE/
wFtfWXtdzluwLv30qcRrDiK2UoZde97BE8tUIbr5PPz57hRVnF8GcsYDv5Yv
/wGJkykPBtdWQO+Pk/Xo6F+4Tb4sYJp+gtm+jQrEmSXoLg+Uk9CshdB0lytG
Rivw9O+N9mCFRpDm59RximVBtkZiN6b3f4F8B4/04MQ1SCChKeJ0cAu0SIVz
6Iexovxwbw271jaQvN+87dyTtUgJ5XA6WHXCfr2+3Ymx61DVprilyyw98NXB
Ry0okA1tzO51zXPthZz9JnwVj9gRfee4BWtsPxCGVZ0vfTgQy6m8/HuDAwCD
LI8+3ORExsVx49/FhuAJYc0n7cSFtOtH7UTvDINXgo2fsi03um+tgdQyRiC+
Proy2IEHpTwOLw+e/gZ37cKnNzvyosx87uikzWMwYbFN0OQiHzJgpXjySY3D
w6Xv63qt1qNnZd/NROS+Q+GkNrn+LD/qXGwdfck3AW1S+wYPSG5A3fpuPHPN
E2AtY7kz/MUGZMKqWbs9bBLKDE1d1UUEkDXrENNkxxRUhtE/ndgigGy5uKfL
5aegtr6BZiwugB7vrjSU3zUFHVqamXbSAqh/8zXDReUpmN4jNxArL4AOfb23
zQemQISxovVLTQD5cvPbHDs1BS7tTynpFwRQl2XR7IvbU6Bk/D2NliyAXLIP
J+YXTkH/p0TdpacCyKO46Gls8RQE7j/zY+S5AIo813rGvWQKvgm9Vyl4if8/
erxW48MUxHyNbDB5LYA6LArXFlZPAaul+lxCqQAycSkds+mYgsZ/opFMrwBy
Hgrnavo5Bdfua7WrbqKg/Xd9L1fIMOF3QNOo8GYKyj02W6knywSfMLPff0Uo
qO1C0lLXDiYkJDtuLBSnoPrtbpMTO5nQWJpgumc7BT14p9WzoswEpcVfffL7
Kej5H8XL0+pMWLiZOiZqREFzW2iy88ZM8LfiXFgTTkEKwZfO5d1nwuXqzQlc
kRS00zqISfVhgsYOJQ2Bxzge4r26oy8T/s6cC9gSS0FXZGMUZB8wwe5urhA8
oyAOEfFfQcFMOBNx/qBbLgXdckjiE3zCBPEPeW6/mimIrDFtPZzBhBXJz1uW
Wyno5N/yV/cymdDj11fO1kFB19OYZ/KzmBClw81H76GgogoOBfEcJnB1XohX
GqYgrpS5dZP5TJgmuUscflKQ3dejpUfeM+HdZouV7zQq8nZDY9u/MAG9uf63
gaAi4SGhQ3LNTCg/4TWfJ0hFe2a60+VbmFDr+oy8J0xFWeEyafJt+PudI30U
SSoiDOMsJLqYsBhp+/6AEhVtmboG/QNMOLj+pmeAPhV9GZO6kD7NhJIX3nft
T1NR6rE3rqEzuD6qkc4GZ6hoUJKv4OYsE45dy78uYkJFP8/tDTzwkwlnP/+2
yDGnomY3i9KieSa4+N7V6LKnouDrVQ5Ry0z4b9l37fZgKjoX59/0ioeE4Bmx
8L2hVHRvfob04SXh4nCx+OEwKtpYsGajOR8J3J9n1c2jqKjCOilIgJ8Es8jz
HlEJVKQjnEuxoZCwLLtniTWLivoTFTdNCJKgaTLyq7uBim7vSEsGKRIET3j4
jjdRkckl0VNL2JNqm4j5Zioa8n8vVihNQqSkvjKlg4qMvgqK7dpGwjey+MaR
firadOhADk2WhAe+EdN501RUbX0gK0eBhPrcQ9+DBGjowyuNRN2DJHip5o08
otKQ0YNEDyb2nirJgUg6Df0MPh4fpEJCQhdbR/xGGtKjcT+sViXhnzWfKjLE
aOifOcej+xAJvCdPJNftoiGaXOP8T00Sjn03MOY7RUOz4a4PR3VwfjcqTgsY
0NBFdnqqgy4JOUvKJ+mGNMTTfZX/D7aQAENr81ka8m85+4lDj4TxvZ1Kchdp
aBk8xoVPkeDvc45fx5GGjptsNJU2JKFii1VlYBgNcR7uDf7vHAlb+po22kXQ
0ARzq7vUeRJc4lX/ORlFQ4oVqQOh2ApCdBolhoYKvX4uX75AQhy13OJxMg2J
nf0nhcuChJvs4kvJr2lo57g2+95LJEhOflUqqKchPi2hXztsSXB/ddQvupGG
TC3kF/2wu6zfdDl/oSFBx3bPQezQkUBPlTYask2K5Iu6SsJi78GGsq801GLr
rjh/jYSWpie2tZM0VGO0ZsNTexK8C84kD3DTUaXS49D0mzi+puP+E7x0NNV2
JWMZu/u7uv3cejqavumE9G+RoCgir8pFpaM1Vxs//8Tu82bvVNhER4uvY12U
75Bw4FTBBg9ZOjrW8To63hmv/9WM+QdydHTl+q3DY9iPfJ71hu+ko1IeIztF
FxLG3ob8m6pER64bxpUrsCNFrY80HKSjyA8hKcOuJExPCnqInKCjVpad5jz3
cL3Y+a9s06WjhX2tCzrY2lvYdBX16EjjiDMjFDvh9MwmLQM6KotR6qC4k3C8
sLrgHzM6Cg8o8aR4kJDi50IWX6OjUxXPqhY8cf+L95w3DaKjh8O/c677kJDp
UBevEUJHH5/96UrGXlNa0iPziI6URa0Tm7BTTJPP/o6go/TZsuWdvji+CCvD
yDg6SmZvFh3D9uaY0WlIpyO50+/ltfxJaDszGJifQUdAz1R3wJZ53lwTn0VH
1N8dc0+w61H+0Wu5dOTYE/Z3ElvQxfUwVxEd8e/viXz0gIR/J9lUD32mo88s
c3rVAbh/D8y7bq+lo4mI4lQmtv6DsUKBejpKCbV5Sn1Iwi+pmn39TXR0cpDN
2wwbXQjdfbeTjl5v1l4cf7i6/kI7CsboKDhqrP9HIAnSW3ivJnyno+yabX7U
IBKc7ZbSfCbpiO3y42ZFbBGe/q0G03S0UyLsggO2teYLiZl5OgqMWtYexf6b
v3OTLAeBhI2KXcqDSZCP+1XByUWgF7E+lF5sc893Dt+4CdRQK284j11+/Hhl
8noCafOlD2wLISGw3+q6IEGgnFYBPn/skgo54V8MAt04msyRiD396mdl80YC
2U9IZr3BNrjlJRyymUC8o2Fsg9jC3AlVbFIE8tzY1LwnlARd8pLjkDSBLhtV
7z+O7dEiu7lsG4H45D7rXMAeTvjP0W0Hgcz77D18sf9Vat38Q4lA9apUWhO2
yjnem/0aBGp/uEAxekSCnUazSIkmgd50v7axwk7aGlMdq0Ugv5Voh1vY62a3
ihodI9AeiQchYdi1voc+1+kTKDwim16NvXyV+1b6aQL9d6B0phVbQb9J9MEZ
Al31oLoPYkdsunBL04RAcsZCmQvYZq9dthSZE6hE19Ziaxie55HqNdEXCURd
d7tmF/Z7F87bty8RSFXt6+hBbMnDUTW7rAmUXHhk30nsyc7s2y/tCSS4/9xB
R2yRUicx3+sEknJar+KCrfccai1vEChhr8K0J3aeXZ2Y6B0CnS80ywzF/nY6
onbRCdcrl/wYjS243/ROlwuB1GyOBCVhu60dr428R6CV8S0Hs7CXDx3gifMg
0Fr9sex8bE/vh0efehHo+PMP9e+wfdnkKzN9CVR9yGXhMzanlvu6N/4E4klX
4WrCDvBt1CgKwP2yu+ddG3YIx43SqmAC6Y27CQ5gU46UL9WFEuiJomXJCHaE
P12lJYxAKV3TXN+xiWorl64InP91wb9T2NFcb9/2R+H4/WsfzWALHeOa/xZN
oP7Mlbqf2PEBZ5WnYgjkfOd51jz2lpr0Gz/i8PtuZOxZwH7Ks5T9JwHXR5nP
cnG1vid0p1eSCLReL3/3MnZqYKI8+zP8fsPY9BXs7XXT13hf4Hp3Z1axhON+
4tNIp6QSSOHGkP8abHnd8HHBNLz+ObLkqrODh7eKphMoRN5lYdW7G5StpDII
tORa9mrV+fx+z2WzCFSj8HNl9X379DoGd2UTSH5o3cLq94pCZcT25RKoSeZb
9Go8ak0uF9TeEKgzNqBnNd73ArXxmgU438bh8tV8NE5t7jn2H4EWzEf1f2OX
h9kJ6RcRqGDY+/4ctlZzqbHRO7x/57JMZrGrqQKPz5USKF3WtIWJfcLgYqtl
GYEsxZ1/rNa7PiKXavuRQMU3FvO/rfZT67pTDhUEyitsFxnE/kI3DL1dRaCy
sKXtX7ENDFPr3apxfI/Nu9ux26N+896vwfvb6sfOL9g9jNgHIQ0EimpxrKjA
Pm88WRXZhNc7S5O9FHsgWpU9rhn3f82GiYLV/tzY7/WyHdcfXUx6iW19dldZ
ZieBFDtrHVb7cyLGayWvm0D8iovDj7GnN0m5lfURiPHyxlsfbEez24VVAwSS
4UpmuGHPxVX9rhsiUGn2OaHV/bKw2fZW1yiBTl85yX0Oe+2WLLsfJM7HMiFM
frWfzVky/swQiFxs4BVf7edk/YmVHwSq45DeTsfmFf95hfc3gWwp3Lqr+5mQ
3G8hxcJASq4q+99joyc+85ysDLRUvaMtG9tm/ZegybUMlOj4TewZdvFv28Jc
Dgby8wqo8Ma+WBdH1eBnoPUhViqa2IEa42lSAgx0NdZRVwn7TYEy4qIy0CaH
mfXi2JxP6681EgyUpygcu4znWeZtlsrzIgw05Tzfm4vdMXHCTGMLA70Qv2qZ
hL3G4smslDgD3+f/RgZiGxxXFJ2SYiBXpibbJewF0UtOrnIMJBujz8OPrVVd
tT1ahYFMTvaln8Hz10GNVuaqxkBmFVx8qthPcs2NLiAcP9/zTZLYk/F/7ktr
MtAu9iU0g+d/mKPs17zjDPTQgJruh927KSSk6SwDzWyy+fEcnyecj7ql3pgx
ENrtK+2HvYt9W3H0eQZy2nqF3Qbbe/r92IWLDCT45mitLPb2ill1pg0Dzcpe
ts/A59kdO8Of3M4MlHM3kisZn3fTanIiDFcGktZv4nfFtuVfd0TiLgPxVjvl
GmCff50de9CTgeqUWr6wY2vN8h669oCBLrAjByt8vhK3Pz6qe8JAFpIcQlR8
HodqxRR1xjKQe3789Dd8XnMzro+MxDOQRFClZSH2coHI/uVkBnrXGC1qjj3y
x7lf/hUDFVwqn0jxw/P2rsLO0EIG+hNu/lnMd3U+cJjEFeP1+PvBksT3i5ci
vV4vSxhISLUvuhg7rvRh2/sPDLTBkL/tDPb9NaN3Zz5jG7XE3Pcm4ZRPfO2p
bgbaXLlNo9aLhJlAblv6IgNpLEylCeD7j7C3Ok0K+5SvWDU/trarU8lu7LIK
1TE+7HibbxQD7IvnFaS5sY9qfSgKw97wcymJFTt5xZlvwxIDvY47EPYD36/0
Hcdfcy/j/GG/ZSu2m80WUyFsSe777s3YqeZGbNuxkc+b2CbsJd0Kk6PYDoEt
zXXYabLJrP7Yyj0LGpXYa0aMDdhWGKjx2phwAfaOnpBlGnaB0ru9b7CNmitf
SmLHprmcysXOKNu9dAib5WmWXxa2ScKGFC/shA9rZlKxvSO19cKwh5Y38aRg
ZwXeW0jGthkXkXqOzeY6qVuG3fOp1zgJW8FR4k/j6vPvYh0TsE1tzj7rx9Yy
Vw+Mu7e63x/pTGMXvm54EYOdbfRpfgV7OFOrNBr7f8lKirY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 6}, {0., 0.9866952793249356}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.504365252138818*^9, 3.504365337527419*^9, 
  3.504365456277937*^9, 3.5043655340949507`*^9, 3.504365710639226*^9, 
  3.5043659572383547`*^9, 3.5043660219464417`*^9, 3.504366283102174*^9, 
  3.504366423361709*^9, 3.5043692214129267`*^9, 3.504369389404711*^9}]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.467456319949409*^9}],

Cell[CellGroupData[{

Cell["Energetics", "Subsection",
 CellChangeTimes->{{3.434122912094719*^9, 3.434122914413233*^9}, {
  3.4343018107259912`*^9, 3.4343018122138433`*^9}, {3.4673914746854*^9, 
  3.467391476459688*^9}}],

Cell["\<\
springEnergy[T_] := -((Angle[mV, 1] - thetaRest)/Abs[(Angle[mV, 1] - \
thetaRest)]) 0.5 kSpring (Angle[mV, 1] - thetaRest)^2 ;\
\>", "Text",
 CellChangeTimes->{{3.467382260503327*^9, 3.467382276298566*^9}, {
   3.467382307848551*^9, 3.467382315810668*^9}, {3.467382354217345*^9, 
   3.467382354543295*^9}, {3.4673825448363028`*^9, 3.467382546417509*^9}, {
   3.467389273348628*^9, 3.4673892765457697`*^9}, {3.467389386577881*^9, 
   3.467389413529524*^9}, {3.46739165788836*^9, 3.467391791597673*^9}, {
   3.4673933090066967`*^9, 3.467393314542297*^9}, {3.467396819680138*^9, 
   3.467396823990863*^9}, 3.4673971007108583`*^9, {3.467397912594227*^9, 
   3.467397930096368*^9}, {3.467397971726925*^9, 3.467397976475031*^9}, {
   3.4673980352758493`*^9, 3.467398039518076*^9}, {3.467398169803978*^9, 
   3.4673982323772907`*^9}, 3.467398294542894*^9, {3.4673993278751717`*^9, 
   3.467399347117667*^9}, {3.467399399479837*^9, 3.467399399905634*^9}, 
   3.467399445004057*^9, {3.467399537285308*^9, 3.467399538463876*^9}, {
   3.467399578320244*^9, 3.4673995883307867`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"springEnergy", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"0.5", "springMoment", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Pi", "/", "2"}], "-", 
        RowBox[{"Angle", "[", 
         RowBox[{"mV", ",", "1"}], "]"}], "-", "thetaRest"}], ")"}]}], "/.", 
     "sol"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4674021016940737`*^9, 3.46740213446395*^9}, {
   3.4674021889475613`*^9, 3.467402189625465*^9}, {3.467459856533187*^9, 
   3.467459874451521*^9}, {3.467459954601898*^9, 3.467459987721631*^9}, {
   3.467577965546897*^9, 3.4675779718098917`*^9}, 3.46758063772939*^9, {
   3.467581431000922*^9, 3.467581452642434*^9}, {3.467582708631526*^9, 
   3.4675827301581984`*^9}, {3.467584516235674*^9, 3.467584521702422*^9}, {
   3.504366080499859*^9, 3.504366087383554*^9}, 3.504366565291109*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dacSpeed", "=", 
   RowBox[{
    RowBox[{"Sqrt", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Velocity", "[", 
          RowBox[{"carpus", ",", "3"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Velocity", "[", 
          RowBox[{"carpus", ",", "3"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], ")"}], "^", "2"}]}], "]"}], "/.", 
    "sol"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467458326327386*^9, 3.4674584874797773`*^9}, 
   3.4674585274183903`*^9, 3.467458716710253*^9, {3.467458748167591*^9, 
   3.4674587492855997`*^9}, {3.467460075423177*^9, 3.467460075678813*^9}, {
   3.50436440735119*^9, 3.50436441240497*^9}}],

Cell["dragEnergy[ti_] := NIntegrate[totDrag[t], {t, 0, ti}];", "Text",
 CellChangeTimes->{{3.46746421000494*^9, 3.467464241600705*^9}, {
   3.4674644863835783`*^9, 3.467464496456071*^9}, {3.467464819168985*^9, 
   3.4674648262713833`*^9}, 3.46746490512576*^9, {3.4674649369560204`*^9, 
   3.467464998030283*^9}, {3.467465037925642*^9, 3.467465060675878*^9}, {
   3.467465096791695*^9, 3.4674651840927896`*^9}}],

Cell["\<\
kineEnergy =(*Rotation *)(0.5 (dI + waterI) Velocity[carpus][[3]]^2  +
             (* Translation *) 0.5 dMass dacSpeed^2) /. sol;\
\>", "Text",
 CellChangeTimes->{{3.4673894394920797`*^9, 3.467389445978128*^9}, {
   3.467389477197583*^9, 3.467389516126239*^9}, {3.4673915195812197`*^9, 
   3.467391519981945*^9}, {3.467392880480506*^9, 3.467392883239048*^9}, {
   3.467392913419845*^9, 3.467392915416604*^9}, 3.467458321473123*^9, {
   3.467458495335946*^9, 3.4674585249376698`*^9}, {3.467458569413659*^9, 
   3.467458573476643*^9}, {3.467458660419178*^9, 3.467458661545712*^9}, {
   3.467458752638236*^9, 3.4674587576778183`*^9}, {3.4674591870631933`*^9, 
   3.467459190894444*^9}, {3.467459269945664*^9, 3.4674592982437677`*^9}, {
   3.467459341205378*^9, 3.467459343941255*^9}, {3.467460055686049*^9, 
   3.467460080607724*^9}, {3.467585374534505*^9, 3.467585391659176*^9}, {
   3.504362987185054*^9, 3.5043629903839912`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"kineEnergy", "=", 
   RowBox[{"(*", "Rotation", " ", "*)"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"0.5", " ", 
      RowBox[{"(", 
       RowBox[{"dI", "+", "waterI"}], ")"}], " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Velocity", "[", "carpus", "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], " ", ")"}], " ", "/.", 
    "sol"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4673894394920797`*^9, 3.467389445978128*^9}, {
   3.467389477197583*^9, 3.467389516126239*^9}, {3.4673915195812197`*^9, 
   3.467391519981945*^9}, {3.467392880480506*^9, 3.467392883239048*^9}, {
   3.467392913419845*^9, 3.467392915416604*^9}, 3.467458321473123*^9, {
   3.467458495335946*^9, 3.4674585249376698`*^9}, {3.467458569413659*^9, 
   3.467458573476643*^9}, {3.467458660419178*^9, 3.467458661545712*^9}, {
   3.467458752638236*^9, 3.4674587576778183`*^9}, {3.4674591870631933`*^9, 
   3.467459190894444*^9}, {3.467459269945664*^9, 3.4674592982437677`*^9}, {
   3.467459341205378*^9, 3.467459343941255*^9}, {3.467460055686049*^9, 
   3.467460080607724*^9}, {3.467585374534505*^9, 3.467585391659176*^9}, {
   3.504362987185054*^9, 3.5043629903839912`*^9}, {3.5043667914637947`*^9, 
   3.504366806720974*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"kineEnergyMat", " ", "=", " ", 
   RowBox[{
    RowBox[{"BodyEnergy", "[", "carpus", "]"}], "/.", "sol"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.504369341209483*^9, 3.504369368714864*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kineEnergy", "/.", 
  RowBox[{"{", 
   RowBox[{"T", "\[Rule]", "2"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.504364632881998*^9, 3.50436464292846*^9}}],

Cell[BoxData["0.26369575374589455`"], "Output",
 CellChangeTimes->{
  3.504364609108162*^9, {3.504364643600584*^9, 3.504364650607932*^9}, 
   3.504364956168399*^9, 3.504365456532456*^9, 3.5043655344327393`*^9, 
   3.504365710725719*^9, 3.504365957468976*^9, 3.504366022260537*^9, 
   3.504366092121415*^9, 3.504366283285994*^9, 3.504366423496208*^9, 
   3.5043665709067917`*^9, {3.504366796643395*^9, 3.50436681002254*^9}, 
   3.504369311817273*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"totEnergy", " ", "=", " ", 
   RowBox[{"springEnergy", "  ", "+", " ", "kineEnergy"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467464248298441*^9, 3.467464267505631*^9}, 
   3.467464349312097*^9, {3.467465291044999*^9, 3.467465291729472*^9}, {
   3.467581037228334*^9, 3.4675810411479797`*^9}, {3.467584872092114*^9, 
   3.467584872411371*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"180", "/", "Pi"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Pi", "/", "2"}], "-", 
           RowBox[{"Angle", "[", 
            RowBox[{"mV", ",", "1"}], "]"}], " ", "-", "thetaRest"}], ")"}]}],
         ")"}], " ", "/.", " ", "sol"}], ",", " ", 
      RowBox[{"springMoment", " ", "/.", " ", "sol"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"T", ",", " ", 
      RowBox[{"simDuration", "/", "100"}], ",", " ", 
      RowBox[{"simDuration", " ", "-", " ", 
       RowBox[{"simDuration", "/", "100"}]}], ",", " ", 
      RowBox[{"simDuration", "/", "100"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.467402536307785*^9, 3.467402556189949*^9}, {
   3.467402637941134*^9, 3.467402733639023*^9}, {3.467402768922559*^9, 
   3.467402817555676*^9}, {3.467402853494987*^9, 3.467402872479051*^9}, {
   3.4674611977937403`*^9, 3.467461203660976*^9}, {3.467578003167179*^9, 
   3.4675780081804733`*^9}, {3.46758070874219*^9, 3.467580713275795*^9}, 
   3.4675814831829557`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVknk81HkDx53LWOWeQZjfOOba2kQhoVTOlB1CrejU0JrUk0Gox9Fhq83V
kwft2g60KmNbPRnX91MtepQjI5E2PV3WDKucubfnj/fr/Xr//2btiQmIUFFS
Utr7mf/7aIXVpdh0PqjDBQ/iHVlwvltTzk3lw0WQOze1ioWLbkV3A4/xER/2
cT7ZngVaaBx9LJ4P7ebt0oXlLPQzD5zWOMyHiZZXZcpXLPh4sZlnI/mIGDmk
NW/DgmZokSApnI+1bXYHxUwWYtLTRmQBfDyel/HeMljgFum7ZXnwEbPXx8ZL
h4WeUMZ/yxz4kJU29haosxCc733RnM0HbaAkqneaQrTrjdH/GfAR2PCXWG2Y
Ql7Oe+WPCzzkpCw7o/eaQnBDWud6OQ+qs7apczIKrzpMBW0dPDxPG2M8+J2C
l9HpZz9IedBCXuWOSgoHD3wyE//Ew1pJ1Jbfr1BYbrNGkpTKQ2yP9YPRTAq7
xBGn8vbwIEz3y3ybRGFAFGJX787D+t1Visz9FE5e+yH8nQUPy6ivrYb9KXC4
kXXK01w8/67i5bQjhf73enaaMi7CRj68v2FBQbq3uWfoFy7iwrfxZ1QpbMl5
6F16/HO7libfb2PieWeUDU/AhejyioxbF5gQOwkjhSwupLGru0uDmehhdcWF
DHOgtrS35KoRE1c4CZ7D1Ry0p9LluU8s8MiWzrY6wYF0Lv8fUWcsoFZ1TfKn
LwcNzksJfZ0FNnA4xEmHA9FM4/c5I+awF7GP0p6w8fNRvnr7ZXO4XLds8c9i
Y01IfQc2m6Oz8kkTbTMbhe8MDuyZMEPuQaX8FRpsXLkvcrtVaIbsxyVp1fU2
YK0Oe5DlaobTG10ty47YIKq2boPhiyUoFwo5CzY2qI2WajnEL0Ghwu5IxVNr
1G14t1a+eAnMjBkBTWnWWGnZPOFy1RShu2aLfJdZ46lfB8NxpSkydhecd3xq
hQvJ7PnOeyZYdfLmh/xEKzSkFKmx/UzgN6oQpptbgS9113OXGWPd+jsh03WW
8I0ciPk6xBgyUeb0lzsswdpduWXhGQNn3bc3dE1+/lAzbU1vEAP7il69iM5m
QdUut7GnnY5/t+ocfMFlISigfdsiHzp2pTQVCuopOHvZbpTUG2GHrm6XQkDB
KOT+jj9XGEElNEEibmKC4Wmv23LFEF1C0chwvwVE5827S/UMwSmJqslXt4Ax
V9pUftwAsxe2jt2izFEkyqA05frIS/pW+fJqMyxe3RW3EKgP55r6X/q+WQLH
q/tEvbV6aGV9JNhvihqRdkSntR4MTs4PVSWZIDEhgelwThfbJgLvemcZw3Oc
oq6/10FsTLJ+3zUGospOfD9YuRjGNFbviJSOWx7tz2Tpi+B1z6ptcbsRFB2H
nPW3amNbfbfW7X5DXLrX3eDH/hKfurWZ3yob4rBryzn2DA1usc2eWeYGaJsP
eiiQaUIyfeBRt4s++n/9j0eiRAPSjJI/anfqITAt0zYg6wuYTvlWVJ3SRXWa
6dPEOHXMVdBqCvbpwNbjrz8K96jhdkrGuF7jImxSvfhEFKSKFtmmqTt22giq
KY1J9VfBza15j0U3tPC6T1wbLVAGJZ+18lxBwyon+5UvQ5UgDpfu0m3QwOBv
KwtqXs6T6taGoFPCLzAkWLP3ofEcybvpEJdloo5W/4FiXeEMuRPi4T/dqwrd
bJW6S81TJNouo8RTogLbcvvj9I2fCC/HN2LpBWXkNo+Lv+ucIMeLH4UdOasE
h9o2dlHyOKnasl/UxF8gvwY1bdRxHSOTCT/un9w3RyTXYpt30keJu1Hg7ETj
DLl01NvnDG2EhLWM+g98M00+nFueXUz/SJw2CwVi1SkyuX1Y08LtA0kUK47c
6JskOmXHHXyUh8na+y+drr6bIOeNdBnZtUPE+Ocy038ZTRDBpl7tsPJB0ny9
tY91aJws3yp7e+yZgvikewWGjI+R2wm3M9SdFMR7ouaNZvEYcS2hMarb5KRE
w2pe9M8xorzB7uybn+QkPlgydPrEGDmWsTk3vVhOdkZnXG/7bYzom3Lb5K/l
pMBm3Ru1ReNEkVNT3xCsIIfCIwP6M8eJ23nl11AaJLajOWUOLhPEu3S0KuPV
IPkbmoge5Q==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-13.256749038082704`, 0.}, {-8.608335602381487, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467402727925044*^9, 3.467402734371451*^9}, {
   3.4674027748748407`*^9, 3.467402819935096*^9}, {3.46740285801033*^9, 
   3.467402873130229*^9}, 3.4674033128509293`*^9, 3.467458607437969*^9, 
   3.4674588562437143`*^9, 3.467460881035137*^9, {3.467460935263041*^9, 
   3.467460951250641*^9}, 3.467461017071381*^9, 3.4674611607550898`*^9, {
   3.4674611989454937`*^9, 3.4674612044673357`*^9}, 3.467464519817428*^9, 
   3.467467138520132*^9, 3.467478606513136*^9, 3.4674795918307037`*^9, 
   3.467480321349454*^9, 3.46748045085989*^9, 3.467480797811469*^9, 
   3.467480829857502*^9, 3.467482814264769*^9, 3.467483057830826*^9, 
   3.4674834900399237`*^9, 3.4674835252870283`*^9, 3.467483571140855*^9, 
   3.467483690205512*^9, {3.4675792708477087`*^9, 3.467579323317501*^9}, 
   3.467579479055468*^9, 3.467580673980337*^9, 3.467580714033492*^9, 
   3.467580992809123*^9, 3.467581508587447*^9, 3.467581547110587*^9, 
   3.467582746148489*^9, 3.4675830563371143`*^9, 3.467583091272813*^9, 
   3.4675834794894543`*^9, 3.4675840843995047`*^9, 3.4675841497832727`*^9, 
   3.46758425281612*^9, 3.467584322763693*^9, 3.467584477122428*^9, {
   3.4675846064059353`*^9, 3.4675846407232113`*^9}, {3.4675846791659327`*^9, 
   3.4675847003491583`*^9}, 3.46758473212986*^9, 3.467584809205738*^9, 
   3.4676322329893713`*^9, 3.467632369186193*^9, {3.467632434187769*^9, 
   3.4676324769348907`*^9}, 3.467632534022277*^9, 3.467652529825839*^9, 
   3.468590123047364*^9, 3.4685935421938868`*^9, 3.468593955312478*^9, 
   3.468594455015081*^9, {3.4685945159401712`*^9, 3.468594540992866*^9}, 
   3.468594671737112*^9, 3.4685947206883173`*^9, 3.468673739127099*^9, 
   3.468673803786744*^9, 3.4686738393166933`*^9, 3.4686739572933617`*^9, 
   3.468675315826663*^9, 3.468678415859531*^9, 3.468678538038538*^9, {
   3.468678767619254*^9, 3.46867878312951*^9}, 3.4691932479588537`*^9, 
   3.469193412714813*^9, 3.469193721957975*^9, 3.469193764760243*^9, 
   3.469193825211816*^9, 3.469195981756485*^9, 3.469479982271138*^9, 
   3.500842628370516*^9, 3.5008430391247053`*^9, 3.50084327787193*^9, 
   3.5008458118416986`*^9, 3.5008461038491383`*^9, 3.50084719185314*^9, 
   3.5008473313984013`*^9, 3.5008477432554693`*^9, 3.500848150044099*^9, 
   3.5008984673603373`*^9, 3.500898579403887*^9, 3.500900569396331*^9, 
   3.504361818238346*^9, 3.50436292348461*^9, 3.504363023832925*^9, 
   3.50436441954508*^9, 3.50436465072253*^9, 3.504364956257169*^9, 
   3.5043654566515627`*^9, 3.504365534845728*^9, 3.504365710790897*^9, 
   3.504365957547523*^9, 3.5043660223772593`*^9, 3.504366092222765*^9, 
   3.504366283452969*^9, 3.504366423563465*^9, 3.504366571000289*^9, {
   3.504366796765233*^9, 3.5043668101041117`*^9}, 3.504369311953121*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kinePlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"kineEnergy", ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", " ", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kinePlotMat", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"kineEnergyMat", ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", " ", "1", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"springPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"springEnergy", ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", " ", "0", ",", "1"}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"totPlot", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{"totEnergy", ",", 
      RowBox[{"{", 
       RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
      RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", " ", "0", ",", "0"}], "]"}], "}"}]}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"kinePlotMat", ",", "kinePlot", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "simDuration"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.467380128503154*^9, 3.46738021298289*^9}, {
   3.467380314590437*^9, 3.467380315308406*^9}, {3.467382364402763*^9, 
   3.4673824122193317`*^9}, {3.4673892904219227`*^9, 3.467389291363956*^9}, {
   3.467389520441621*^9, 3.467389522391685*^9}, 3.467391850275475*^9, {
   3.4673918920218353`*^9, 3.4673919436225557`*^9}, {3.467391995851313*^9, 
   3.467391996329238*^9}, {3.467392949709693*^9, 3.467392962532427*^9}, {
   3.4673971201526527`*^9, 3.467397141279652*^9}, {3.46739960082768*^9, 
   3.467399732105854*^9}, {3.467399779022285*^9, 3.467399798829466*^9}, {
   3.467399829904965*^9, 3.467399856984413*^9}, {3.467399895044532*^9, 
   3.467400014498322*^9}, {3.4674001914526463`*^9, 3.4674002059795113`*^9}, {
   3.467401679815247*^9, 3.467401695161969*^9}, {3.467401802137115*^9, 
   3.4674018232244473`*^9}, 3.467405676102354*^9, {3.467459967187924*^9, 
   3.467460032638186*^9}, {3.467464275893033*^9, 3.467464360385433*^9}, {
   3.4675808111632442`*^9, 3.467580827435454*^9}, 3.4675809789653378`*^9, {
   3.467581059551364*^9, 3.4675810941214657`*^9}, {3.4675847784609528`*^9, 
   3.467584781972929*^9}, {3.467584862835476*^9, 3.467584868857832*^9}, {
   3.469195999944623*^9, 3.469196022183227*^9}, {3.504366969391677*^9, 
   3.504366974170898*^9}, {3.504367016645935*^9, 3.5043670432686167`*^9}, {
   3.5043670746890182`*^9, 3.5043670828632708`*^9}, {3.504369246766493*^9, 
   3.5043693837497387`*^9}, {3.50436941810493*^9, 3.504369429031064*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV1mc8ll8fAHDJHsk9rluIzJJIpInfIWkSJSsVKSF/pGWVkZWsrGRrkDwo
ikKkjGyyI1so7gslkvEcr67P9825fusMiQuOJy+xsrCw+K5hYVn9zh9zSNR3
9NKQlkoKO9bZpOZ/cfOWRtlz0OYm/VbJNFijnjlsFyLrAJFwDPJM/qeRSe9O
6Uq4CTrP9UsfDZVqTOUdCLaXvQO6UpFy10zqNITl2otWOnyg76LAooBMu4a6
S9CO6gR/cOEan7cd6tOwqNJIj7AMArmyYxxP80Y0fIhfouayoZBRuu3aaZMJ
jS+5p6ojZsNhvv1r5zA5rXHxq4LvXEcEzNaWPWGR+aMxu4YLzAujQG73I5s7
tQsa/nKDfz8kxEB/gKL3uaEVDYZB8WsZz1goMLycoZ/PCs9dYhyDLOOg+Dh9
+UkeO9RWHR05JZsE73uqTSxM+CD7FkXfnC0F+jXyyqpXBODWfc+s0NkUcFu3
pn6GFASuPFObXx2PYaBsLFdYhoCmysoKmeonQNqHd+20E4JHX1WkTAqfws49
Da+e1wrDVtZ1vcUJaaDNysqfNCQOM3T3/WRIOnzJTiEFdCWgSG4sVsLzObyt
aWW5ky8Jxw0+nvK3fAFx10/9HsiTAceUm9UnZLPhkGtWca3JNtjzekjWh5ED
RwIHbrvIKALLxS1aZmwv4b6L30M5FiWovhWdHDz7Eh4q5dkdmdoBZsmOZtMd
uRD/UuNwsswu0JCTvReknweJbh9pOdq7QTKvp0CqOg8mr//PpN1uD/ysPEI3
KnwNyWLeoVfq9oEHU6qpMCEfth2v+5A7DGDh8nX5FL0ArsSs34qSEM7rgcJk
SAE8zaxfzNXVBH5iOUjc8y1EHNAcUyvQgiT1zoO+loVwbOGQwNDrg1AWHFyk
K1sCAnxiHHfNjkPJj6463owS8Hfnvxx9UheKD2/urZYvhTrht6MtenpwhtWS
5YnQBxhRdqr6IacPp0v+SYqLlYGSHvP9n0Mn4eiuHTYMuU+QJarpi8aM4PBI
h9NNu09w8QXbzhw/YzgUdce1LfMTBIXujdopYwLaM7VBkYrlIFCjHnnXzhQ0
sq2zBHZWQNdCdZPKOnNQkU2Y4YQq+Mi2fv5XjwUot2n9s/aqgkHjI6lWapag
5Du+trKsCmRk09n7EixBcXAX3Vf7MwSHCIj8tbgAW5Kad7McrYZaJSO1olkr
ECU4b88b1sL3e7S02waXgZ3DmXPcrhH2avzPbMcXBxg74inwK70RNMN0ByOO
OkJNSDBjabgRcn1yX/V+coSqoJbIwO1NoKH+4HGcuRPcpzCfJGQ0weXGwABH
46tAk5QqL09shuS09yTd6hrIaoaw0f1bIMW3/drVL7eAMRTJFfe0Bc5e+mOg
t9EFuPzi+MQ/tcAuXsn2FBsX+PE5nSbH0gp0+ajBNBZXyNH/KK3u1gqdxRvv
797lBnss5rQvObTBk/suWx0LPOCIp6XfG6MOSOlWbtvG7Q3KYWU6qdc7IK9D
/aWQqjeIJktwhUR0wDu6uIW6pTdMlQwEXWzogMFpw8M7Cr0hZtkynKrTCftn
q70+OfjA8O0L8VdVu6C1OKY7cvAueHlYvVKgdUPJdRnrP7/9wS74k/MG5W64
8mplYM2WADBMkNrJrt8NF28YBOicCYDNxUP5Pfe7IWU+w9T9YwA0/LMqvr+2
B1RYbt2KjAwEUfeLVeMzPTDyrGHWEwVBgeulb8+ae2Eqg9/nXEUIpGlc6RCe
6YWPa4Mi/dlCIWbt1eYwSh9ssVYzmTkQCjdDPCpcT/UB3ztJ3uhPobArNTJL
t60P9Nb2+nNWhsGZ4f4SN/t+ONHyTOnLz3D4yisQJuk0APWdFrWTRCR0mV3Z
7nxrCHiD9fViWx5C0OAh+4f+QyCpmrmd/e9D2GcnnVEcPQQH0zzYw8ViIcH1
myTn6yHY/nlrzIptLFjEniASpobg2cF73jqsj2C0TWWpwnYYtHRVh2/siYNZ
/cWaDeYjoN63knWpKAEED4VYl6FRmN6y7fgifypoZxSDvMEo/MkUbTkjmwou
vBNC0ZajEHLOVa1eIxX6G4/W2viMQqrKi6IRx1R4acKltL58FE6mOIRPfkkF
fbu7f88dGgP90ofvTBMeQ3iIa/Ci7jjUOEybZqk9hfWtl3J3n/kJ6o0b6OF5
6SC1yT7D7wIJ7JWezemnc2DPt/9qNSOmwa/QP0moKA/KFryOt8b/Al8D1UNs
uW/BpvTz5xKfWYjaTBl273kPj6zShekWc/D3h0tMcX4ZKJgM/Fm+9BekTqTd
G1xbAb2/TjSgI//gJvm8gHnmM8z0bVAiTi9Bd3mwgpR2HYRnul02Nl6Bx/+u
dYQqNYGsAJeuSzwLsjOWuDa19wvkO3llhiavQYJJzVGnQluhVSaS0yCCFeVH
+mo5tLWD9N2WLWcfrUUqKJfLyboL9ur37UyOZ0NVIglLl1h64JuTn0ZIMDva
8KrX/bV7L+TuNeWveMCB6NvHLVnj+4Ewqup67seJVgxe598ZHAAYZHnw8ToX
MilOGP8hMQSPCBt+WRdudKhh1EH81jD4JNkGqNrxIF8bLaSRNQKJDbGVoU68
KO1hZHno1He47RA5tdGZD2Xn88SmbByDn5ZbhEwv8KNTrBRvfplxuL/0g63X
eh16UvbDXEzhBxROHCLXmQmgrsW20ef8P6FdZs/gPun1qNvAg3e25SfYyFlt
j3y2HpmwatdtjZiAMqMz7ppigsiGdYhpum0SKiPon49vEkS23DxT5YqTUNfQ
SDORFEQPd1YaKe6YhE4d7WwHWUHUv9HeaFF1EqZ2KQzEKwoi7W93tvjBJIgx
VnT+aAgifx4B26MnJ8Gt4zEl87wg6rIqmnl2cxJUTH5k0FIFkdurg8n5hZPQ
/zlZb+mxIPIqLnocXzwJwXtP/xp5Koiiz7ad9iyZhO/CH9QKngsi19FjdVof
JyHuW3Sj6UtB1GlZuLawehJYrTRnk0oFkYlb6Zht5yQ0/ReL5HoFkctQJHfz
70mwv6vToS5CQXtv+1+qkGPCfFDzqOhGCso7OlOpL88Evwjz+X9iFNR+PmXp
6zYmJKU6byiUpKCGrR4TP7czoak06cyurRR0771Oz4oqE1QW//Qp7qWgp3+V
L01pMmHhevqYuDEFzW6iyc+ZMCHQmmthTSQFKYVePPv6LhMuVW9M4o6moO02
IUyqHxO0tqloCT6koD3EB01nfyb8mz4btCmegi7LxynJ32OCw+08YXhCQZxi
kn9CQplwOurcfo88CrrhlMIv9IgJkh9fe/xpoSCy9kzbwSwmrEjXbFpuo6AT
/8pf3MlmQk9AXzl7JwVdzWCezs9hQowuDz+9h4KKKjiVJHOZwN11PlFlmIK4
02bZJvKZMEXylDj9piCHb0dKD39gwvuNlis/aFR01wONbf3CBPTm6r9GgopE
h4QPKLQwofy4z9xrISraPd2dqdjKhDr3J+QdUSrKiZTLUGzH/+8a6aNIUxFh
lGAp9ZUJi9F2H/apUNGmSXvoH2DC/nXXvYMMqOjLmMz5zCkmlDzzve14iorS
j75xD5/G9VGPdjU8TUWD0vwF12eYcNQ+/6qYKRXNnt0dvO83E8xq5i1zLaio
xcOytGiOCW7+t7W+OlJR6NUqp5hlJrxb9l+7NZSKziYENr/gJSF0WiJydzgV
3ZmbJv34SLgwXCx5MIKKNhSs2WDBTwJPzYymRQwVVdikhAgKkGAefc4rJomK
dEXzKLYUEpbldy2x5lBRf7KyyE8hErRNR/50N1LRrW0ZqSBDgtBxL//xZioy
vSh+cgl7QkOEmGuhoqHADxKFsiRESxuoUjqpyPibkMSOLSR8J4uvHe6nIpED
+3Jp8iTc84+aej1FRdU2+3JylUhoyDvwI0SQhj6+0ErW20+Cj/rrkQdUGjK+
l+zFxN5VJT0QTaeh36HHEkPUSEj6yt6ZuIGG9Gk896vVSfhvzeeKLAka+m/W
+cgeRALfieOp9TtoiKbQNPdbm4SjPwxN+E/S0Eyk+/1RXZzftYpTgoY0dIGD
nu6kR0LukuoJuhEN8XRfEfiLLSzI0NloRkOBrWafOfVJGN/dpaJwgYaWwWtc
9CQJgX5nBXSdaeiY6YYzskYkVGyyrgyOoCGug72h786SsKmveYNDFA39ZG72
lDlHglui+n8nYmhIuSJ9IBxbSZhOo8TRUKHP7+VL50lIoJZbPkylIQmz/9K4
LUm4ziG5lPqShpTGD3HsvkiC9MQ3lYIGGuLXEf6zzY4EzxdHAmKbaMjMUnEx
APurzZuvrl9oSMi5w3sQO3wk2FutnYbsUqL5Y66QsNi7v7HsGw212nkqz9mT
0Nr8yK5ugoZqjdesf+xIgm/B6dQBHjqqVHkYnnkdx9d8LPAnHx1Ntl/OWsbu
/qHpOLuOjqauuyCDGyQoiymqc1PpaM2Vpprf2H2+HF1KInS0+DLeTfUWCftO
Fqz3kqejo50vYxNdcf+vZM3dU6Cjy1dvHBzDfuD3pDdyOx2V8ho7KLuRMPY2
7H/pKnTkvn5ctQI7WtzmcON+Oor+GJY27E7C1ISQl9hxOmpn2W7BewfXi0Pg
8hY9OlrY07agi31oE7uesj4daR12ZYRjJ52aFtExpKOyOJVOiicJxwqrC/4z
p6PIoBJvihcJaQFuZLE9HZ2seFK14I3nX7Ln3JkQOro/PJ971Y+EbKf6RK0w
Ovr05O/XVOw1pSU9cg/oSFXcJrkZO+1Mqtl8FB1lzpQtb/fH8UVZG0Un0FEq
R4v4GLYv57RuYyYdKZz6oKgTSEL76cHg/Cw6Anq2phO23NOW2sQcOqLOd84+
wm5A+Ufs8+joak/EvwlsITf3g9xFdCSwtyf6wT0S/jfBrn6gho5qWGb1q4Pw
/O6bc99aR0cTUcXpTGyDe2OFgg109Czc9jH1Pgl/ZGr39DfT0YlBdl9zbHQ+
fOftLjp6ufHQ4vj91f4LbysYo6PQmLH+X8EkyG7iu5L0g45ya7cEUENIcHVY
yvCboCO2Sw9blLHFePs3G07R0XapiPNO2Dbaz6Sm5+goOGb50Cj2v/ztIvKc
BBI1LnYrDyVBMeFPBRc3gZ7F+1F6sS283zt95yFQQ52i0Rx2+bFjlanrCKTD
nzmwJYyE4H7rq0IEgXLbBPkDsUsqFET/MAh07UgqZzL21IvflS0bCOT4Uzrn
DbbhDR/RsI0E4huNYB/EFuVJqmKXIZDPhuaWXeEk6JEXnYdkCXTJuHrvMWyv
VvmNZVsIxK9Qo3seezjpnbPHNgJZ9Dl6+WP/T6Vt4y8VHJ86ldaMrXaW73q/
FoE67i9QjB+Q4KDVIlaiTaA33S9trbFTNsdVx+sQKGAl1ukGNtvMZnHjowTa
LXUvLAK7zv9ATb0BgSKjXtGrsZev8NzIPEWgd/tKp9uwlQyaxe+dJtAVL6rn
IHaUyPkb2qYEUjARzl7ANn/ptqnIgkClenaWmyPweR6tWRt7gUBUtpu1O7A/
uHHdvHmRQOoa30b3Y0sfjKndYUOg1MLDe05gT3S9uvnckUBCe8/ud8YWK3WR
8L9KIBmXdWpu2PpPoc7qGoGSditNeWO/dqiXEL9FoHOF5tnh2N9PRdUtuuB6
5ZGfYrGF9p659dWNQBq2h0NSsD3WjtdF3yEQy49N+3Owlw/s403wItBag7FX
+djevvePPPYh0NGnHxveY/uzK1Zm+xOo+oDbQg02l44n25tA3L9MNe5m7CD/
Jq2iIDwvO3vet2OHcV4rrQolkP64h9AANuVw+VJ9OIEeKVuVjGBHBdLVWiMI
lPZ1ivsHNlFt7fY1Cud/VejfJHYs99u3/TE4/sC6B9PYwke5577HEqg/e6X+
N3ZikJnqZByBXG89zZnD3lSbee1XAl7vWtauBezHvEuv/ibh+qjyWy2u1ve4
3tRKCoHW6efvXMZOD05W5HiC1zeKz1zB3lo/Zc/3DNe7O7uKJRLPE79WJiWd
QDuuDQWuwVbUixwXysD9z5UnV/0qdHizeCaBwhTdFla9s1HVWiaLQEvuZS9W
nS8Q8FQ+h0A1Sr9XVtfbo985uOMVgbYPsS2s/q8oXE5iTx6BmuW+x67Go9Hs
dl7jDYG64oN6VuP9IFiXqF2A820aLl/NR+vkxp6j7wi0YDFqMI9dHuEgbFBE
oIJh37uz2DotpSbG7wkkMptjOoNdTRV8eLaUQJnyZ1qZ2McNL7RZlRHIStL1
12q9G6LyqHafCFR8bTH/++o8tbGddKrA+6OwQ2wQ+wvdKPxmFYHKIpa2fsM2
NEpv8KjG8T206O7A7oiZ57tbi/e39a/tX7B7GPH3whoJ9LDVuaIC+5zJRFV0
M+53jjZHKfZArDpHQguBKLXrfxaszueGfp/nHbj+6ELKc2wbsx1l2V0EUu6q
c1qdz59xPiuvuwm0Xnlx+CH2lIiMR1kfgRjPr731w3Y2v1lYNUAgOe5Uhgf2
bELVfP0QgT68Oiu8ul8WNtrd+DpKoFOXT/CcxV67KcfhF4nzsUqKUFydZwuW
rL/TBCIXG/kkV+c51eDnyi8C1XPKbqVj80n+vsw3TyA7Co/e6n4mpPdayrAw
kIq72t4P2OiR3xwXKwMtVW9rf4Vtu+5LyMRaBkp2/i7xBLt43q4wj5OBAnyC
KnyxL9QnULUEGIg/zFpNGztYazxDRpCB7OOd9VSw3xSoIm4qA4k4Ta+TxOZ6
3GDfRDDQa2XR+GV8nmXfZKk8J8ZATNe53jzszp/HzbU2MdAzyStWKdhrLB/N
yEgy8Hv+X3QwtuExZfFJGQZyZ2qzX8ReEL/o4q7AQPJxBrwC2DrVVVtj1RjI
9ERf5ml8/jpp0MrcNRjIvIKbXx37UZ6F8XmE4+d/KiKNPZH4966sNgMpcSyh
aXz+RzjLf3t9jIGCDamZAdi9ImFhzWYMNC1i++spvk+4HnTLvDFnINjpLxuA
vYNjS3HsOQZy2XyZwxbbd+rD2PkLDCT05kidPPbWihlNpi0DzchfcszC99kt
B6PfPK4MlHs7mjsV33dTGgpiDHcGkjVoFnDHthNgOyx1m4F4q13yDLHPvXwV
v9+bgepVWr9wYOvM8B2wv8dA5ziQkzW+X4mbnx7UP2IgS2lOYSq+j8N14oq6
4hnIMz9x6ju+r3kYV0dGEhlIKqTSqhB7uUBs73IqA71vihW3wB7569qv+IKB
Ci6W/0wLwOftbaXt4YUM9DfSokbCf/V84DRNKMb9+PfRisTvi+divT7PS3A/
1ftii7ETSu+3f/jIQOuNBNpPY99dM3p7ugbbuDXuri8JJ/0S6052M9DGyi1a
dT4kTAfz2NEXGUhrYTJDEL9/RH01aTLYJ/0lqgWwD7m7lOzELqtQH+PHTrT9
TjHEvnBOSZYH+4jOx6II7PW/l1JYsVNXXPnXLzHQy4R9Eb/w+8rAefwlzzLO
H/ZatWF72G46I4wtw3PXswU73cKYfSs28nsT34y9pFdhegTbKbi1pR47Qz6V
NRBbtWdBqxJ7zYiJIfsKAzXbj4kWYG/rCVumYReovN/9Btu4pfK5NHZ8htvJ
POyssp1LB7BZHucE5GCbJq1P88FO/rhmOh3bN/qQfgT20LIIbxp2TvCdhVRs
23ExmafY7O4TemXY3z73mqRgKzlL/W3CTnof75yEfcbW7Ek/to6FZnDCndX9
/kB3CrvwZeOzOOxXxp/nVrBHsnVKY7H/D/KZirM=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV1nc8lV8YAHAzIyXuve8te0cio4HiOQlRiKisZJQkP5GyFUKys5KMpFBC
RVHJqKzKChmZRfa9yKqM3/HX+/l+3nvPOc9znvOcV9Tu0vFzTAwMDMGMDAzr
z6WjLmlGlwI0cvnMB662Nx8IPbtduknKGioL5j0vmkZqNNCGnKKkXKDPg5Wg
mTzVyKN8v9+V6gEmlW5/9/dVaEwXHYp0lroGr1b0NhWYfNHgk/n2dq0jCNh7
59dOiH7TUPcKV6xPDQVnhivqXH39Gja1GjlxtuGQM/5LeKVwWCOI+C1gJRUN
3A/eWcSaTGp8fWFSHzcfCy4uhUIDkzMaZ7vlghc74qCMyzFbR3RBY56RHaze
JEDyV3/e5Zq/GqEyP/5UpiaB33GzMoa+NQ2qcVmx5PVkaK91DN5RxAS5XkmX
wm1TYLL0CedKISt8rj0ybCKVDqFrPJL3TLigwJPXyIrlPkSPP+Y//5cbPCOu
50fP34e+l6l/pyZ5gL3I3PF3xwPY9SMv2kaUgOaammrJ+izIrMj5sdVhK9zt
VhY3e/MQPlz1EpWq5YMdTJv7ylKzYZVtaA76hGGW4rufHpUDSGSfs9QRUXgr
M5osej0XyjacfHCqSAz0jd+bhNo+AZ9oSrHaM0m4dN+j/phUAfidz2bbYLoT
VIp/SgVRC0HC7bXCORF5YDgrrWnB8gzYd0sM0//ugnrPxIzI+WdAK/6qqDWl
CBYZlyxmOl5A8YmBsCHRvaAhI3Ur3KgICj4szH1A+0CsqKdEvL4IgivjH712
UIGJGj3KyTfFYNDVyz9aqwZ+NPHmN6mvoF7rr6NJP4CNV/eqCaUEdN10A93v
IdBiui03FVUCXsHW7+qOHIRNxGq48PVSeFnzL59SrAnp6p3awbZvQOxpS47a
c22oiox8ayBVDgVCJyzentCH8vGuLxsflwOT7++2LAMDKNPd3lcvWwFzFTdf
l+gZgiWTLUPW1koQ++nKrLjdCE6U/xMTFqqC3Ohiy0Gt43Bkr6IjVeYDUD5w
fLIbOgm6wx2uHk4fwHvVqPVV4Ck4nHDNuz3vA5guuSiKipqB1uzn8Hj5j6CT
c3CbqoM5aBQ45HPvroa42l/dHhxWoCyVOssGtbCXnWTD120DSu2a/xwCaoHt
EOM3b1VbUAgeY66pqgXKXFvn0F1bkP+xlxKsVQetT/Tv9562A+n0ln0MR+qB
JHTmj8WsPQgQbP5Lpp9ht5owX4TBeWDdcJltzKkJBK/d4l/84gKjete5f+c0
Qf3T3M1a2pfgU1QkdWWoCa7NqYn4ll+C2vDW+LBdzdDVsNTbau4KEby0rNTH
zVDKkvjV39QNyGLiHz+mtcD+xnT3T2fcQepgFAsltBW0lC4V2DV6AvVnPHvK
w1ZQVzF9qLTNC9hDUriEP7RC0DlmWa+zXjBel0OWYWiDErsHy/bLXlBo9F5C
3acNBnJCdlUo+oCKzaLWOZd2QAvv+m6+8AO967YhL092QHuXrqjmhkBQiqnS
ybzSAfdFJk9IKQWCQIYoe1RcByQPtZkesg6E6fLB8LONHfDJ0/Lt9pJASFq1
jSXpdAJfhLhbysUgGPK3u+e2pwsy1B/UyPTfgAA/++dy5O8gl+qgwDQTCk6R
Hy5vU/oOujlZ+SwSN8E0VXw3q9F3eDx6Rg+dugnby36+6on4Ds6+SSN25Teh
8Z99WQRzDwyK9249GRMGAr5na8dme6B9aeOThf3hUOJ9rvdRSx/s66qa2V0Z
BdkaFzv4ZvsgQuJamfFaFCQxu7XE8PaDtOe/nS80osEjyq/aGxe+pD0Lt0Z5
NOzNjM83aO+H0qJcnaDKGLAcGij3cR6Ai4EerAOjsdC9kTtGzHUQUsMkLO+Q
4qHL4uKuy54/YYRd8K990x0I/3HY+U7oT0gyvDlbP3cH1JwkHpcl/oSXZZOd
BnzJkOrdK8ZW/BNKIrQ9C88lg03yMSJ1+iewFr/Z1b2SDCPtyivVF4ZgVGth
ukk5BeaNlj9tsxqGxHelnodfpQLP4SiHKjQCKvAkfZwzE7Qel4Gs8QhQjiEf
bfFM8No4uTXRdgSsKth3v9ifCQNNRz47Bo2Ae53l4SrnTHhmxq6w5eMI7FYx
43nVlAlGTjf+WB8ehbAShlP/kh9AbJR35LLBGMxxGI2vqDyELW3nXuyznIDq
WfF/CoU5IC7i/DjEjg4Bpm1WJccKQaX3v88H42YgpQu4UUkRVP0N0G+79xsE
HPqXOfNLwbGirq48aB6Srh85p/3tHdy1z+Gj2CxC8qCI9NSLKpAzG1xYPfcH
ujkO2iiufYS+38cakd4/eCLmzqd/sg5m+7cpECdW4NG1iwKn1L9AbJ7P+VOn
1kAxWXvyxs5mkOJmN/C6x4AqbPbdUNvzFV65BuRFZzCir6oNdS1hbdAmGc9m
HMeEblrcmRBs+gYSN1qlT99lRhMCzCcVznSBqlH/7ox7LKhHqVtm19J36HUN
0YiKZEV7EhsDYy/3wQtV803Vtzcgs7YaA3riABAna7tyQ9iQV+ksaaFnEOAH
w+33V9hRorpp4Dz/T7hLOG6S8uJAw5V+9ArXIQhKv3BzjxMnKohUso/IHoa0
xuSaaNeNKMq1uPDO2C/wd4mfFrzMheZi9V0DiVGYsJXeam63CWkzgOmQ4BhE
rIyz9DlsRsYuP6s4pcbhzeRh+mYLbvRIZ+Odug0T8E1S5YeaxBZkpVHTYN8w
AY4y9rviH21BUXULepsiJ6HqpKXvQSEehJKNSyulpqAmjlKnL8KDaDKSkvIy
U/ClsYlsJsaDKlwnlu7KTkGnjlaBixQP6j9Y8s1ZYQqm98oN3pPnQdbnZa+u
qU6BEHVNZ0GDB0XX6EV16k+BT8cD3rwzPMhRs7nYym0KlM3GH5MzedCohdTv
qpdTMFCXYbjygAf9W3zq/7hkCiJVT/wefsiD1O2ySmNeT8EvvsoDJbk8KEFQ
6aDZuylI6U1sMn/Gg4xBNLvr4xQw2R+cT6/gQa/0CM701ilo/i8ZyfTxIAbL
G4Xy01PgfEOnQ52fF9kF7J30lKTBUnjLiIAgL7rUSKOxbqdBSJzV0j8hXiT6
5EhtnDQN0jMvb3sjxou0wjP+5srSoLki3XLvDl40cj7bs1aRBsrLC/3yqrxI
VbBtR4M6Df5eyRkVPsWL5IPOea+a0iDMgf0vYzwvuqqWsZcngAbn6gXTORJ5
kfiEVKF7IA00dypr8tzhRbIfXo61BdHg38zpcJF7vOifhUpOfAgNXPyL+CCL
F92uDuFkiqDBiQTr/X5FvOj0D2OrrEQaiL0v9lto5UUTfuO+a49psCbxSWS1
nRftNVvdvT+PBj03+z+ydvIi6Ir5cPUpDZIMODdReniR/65c+5ECGnB0nUlT
HuJFb1r4q8qKaDBN5yx3neNFhrU//BTe0eCdoO3aOJmE5oMbrVATDdBLt39N
BAlJqbyw1m6mwUf9oMXirSR0I5vLRa+FBl98s+jXBEjIXHxfiWErnr9ruJ9X
goTOqw4yGnbQYDnRqVJNmYQ4Y95PCvfTYP/mK4HhxiTUuCGznEyjQfmjYP9L
JiQUtPGY2zK2pnqit+kJEvr8TFLzJ50GR5xfuQmZkxC3hCMqmKGBxacl2xc2
JMSVylKuOk8Dn1B/ze5LJGTAOD4kvUyD16uhzDuiSYjlOzn7HAcdomdE4/fF
kpCinYv3IU462A2ViWnHkZB+kN9JkY104Pw0e9AmiYTuX9+v0MFFB6tE64Ck
dBKyfzrhrrqFDquye1eYCknoTXtcfTNBBy3z4YXvTST0foVL6Jg4HbbqB4SO
tZBQyq8BW24JOkxq8BOLrST039mSD43YiRLGe3g7cTw9f38ekaLDL3qZu+4A
CUl01+SqyNDhVmjCdPE0CTHcZG0dl6dDY9Gh8SgeMnpvLL+jQJUOQerFw7dJ
ZMRIv3HRSI0Oe2slBhMpZHRmsPvXDHZ6N2tn2jb8e1mGaKUDdPiPsa46X5SM
+uVMCp9o0IHrmH5mgyIZtV8O/uF9iA5Hxk3NNh0no+RxqnusPo7PvdqEx5SM
XPU03/Mb0OHFyp5jlJNktO3dc6tsbD4eqo6gBRkxbzx79bUhHcb2dSnL2ZHR
wvM9Wh1GdAgLOc1tcJmMWjTy6mZM6VAt4lATGUdGT4aHFx9Z0UGkv2WbSwIZ
obChWtJpOvikqf93LImMhASeswdiK/BRyLwpZKTPY9lnbk2HVNJH2zuZZHT2
evAwiw0drmwQW8l8Rkbns9orkD0dJCZ7lUsayUjnNHPE8Qt0uP5E72ZyMxmV
IQHNQuxux5fd3l/JiC582HOjEx1ihyMDD3wjI5URv9PvsZf79jdV9ZLRkNMW
yR3OdGhruev0ZZKMSnu3rw660CG45ETmICcFzQh56rJcwetrORo2wUVBoTbZ
LObY38cPXprfTEF26rv35GMrCcmrc5AoaPp4/5zJVTr0B2/oUuCnoNeTqUsp
HnRQO16yJUCWggK+Uu25vfH+X8xfvCVHQYdO18RaYt8OyeqL30VB+pIPVXKw
R0tjnuYoU9CSod3SAR9cP8KOuk37KYjtuICmnS8dpie3BgjpU1D6W0WjBH+c
rw3c56UNKWiZFqvfiX1YhNVQyYiCWqXm6/iv4fowmeHXMaWgqXeahzKxj76p
L/nPioIWkLxu9nU6ZN/0oZc5U5C/kPJwciCuf7Eea8soCspO378sFkKHAteG
NM0YCkoVj1QyxWasKO+RuU1Bus+CmEOwsy0zLZYSKOjvcrzHMPZ0gsPJxFQK
ul+b/TgzFOeTbcagKY+CxvVvh7KF0eHbiR+Rr/IpqM1ie4QStszD1s9phRQk
KSK36zR2I+7kzkUUdJNfmvsF9lYfX22Ot3i8rG26Frfo8HSSVf3QJwpCKglj
yeG4ftUWfXd8oSAbo2VyBbbxrdE3PI0UFC3k9WMIe0Hys8pACwUdZTxwdlcE
HdCZ2N3+XRTEoj+1oTJiff/5dpaMUtCxkorRpkg6SIlwXUwfp6APXhd0prG9
XVYeh0xSkKyds+6WKDoIbRzYbjpNQQ+Pcqsdw3bUeiQ+s0hBairVHXXY/17t
4pdlI9CofbtAXjQd5FMXqtk5CMTsnna0Gtsm8J3rL04CCTIHSPRjfzx6tCZz
M4GWtITaeWLoEDng4LaVIJD8atAed+zyajmBBSqBuF7/KA3Hnn4yV9O6jUBk
S9eRTGzTq0ECMYIEQpIZOk3YApzptaySBLr6nZtHKpYOhvSzl39KEehEY9aM
GnZAm6xglTSB1ly9rx3DHkp/fdlvJ4GO17ineWI/VW4X/K1MIHv2i3MfsA+c
5royoEkgit09CYPbdHDRbBUq1yJQ7XnvLivs+9tT6u/pEAhqqw44Y7PMbhc+
dYRAsnR+7nDsL6GHPjUYE0jxWfmvKuzVi5xX80wI1HS4lLcJW8G4RfjWCQJd
JynSvmMn8J+5qmVOoFsNO4rnsK2e+Yi8tSEQ53v2ALE43M8TD35OtiNQx69q
WTnsSh92D4+zBFJyoYbtw5bQTvqs6EggXlMmk6PYk13PPXIvEagw+v2eS9hC
FV6ioW4EMmmZuuCJbfQQvti7E6hs/v2x69jFLg2iwp54faJMztHYv0wSvix7
EaiEaTY/CXurqqVntw+BDqcOZqZj+zGPfUm8RiA5laSMfOzVQ2obUwMI5JFd
qvESOzA4Qu9BEIEEuDsDy7BDWeVrCkIJ1Bzf+bsem13nOsvLMAKNUzLEmrHD
Q5s134YT6Iq13Hw7dgybe0VtNM6/iHPIADav7seVhlgCFWxkOjSMnRBGOdAW
R6B3D3Y8HMMm6h18uhPw/A86c6ewkzlKSweSCBRfv2o0g813hGPxVzKBLnTG
pM5hp4Vb7JlKIVBv7LWIRWyRz3nuv1MJdOnVO8G/2A82rjz/k47j24xMltfz
q284vXafQDXWS7Kr2DmRGfIbsgjk69qVs4a9o2HamesRgfg3fathiMf1tEkz
jzeHQKIMg2GM2PKG8WNbHxMojpiaWvfz6KHtwnkEIoSn5te9u2mPg2Q+zsdY
6/11v+K++VC2kEDTugm09fFUjDp/KD4n0H1u0f71+d7GyoiqFBFoI+m/y+vr
0WjxOaPxEv9f5mLu+noreb6kaZUQKHrn5sD1eDSPC/YceY3fz+kur8f7Mc6F
z/gtgZKsN/PNY+u0Vpidekeg9zrG3ev5qifx3DldQSDdSBZ1Gra+qV27fRWB
Mrj5NcexGxOKSE4fCPTzxc2x9f0wamc57lpNoC5zdeVB7K+Uk7EetQQaHpMX
7sE2PZnT6FePz++RY/nfsDuSlrhufCbQVvvbvev730O9dyumCderk47ER2xr
s8naxBYC0ZUy1N5hDyarb0htJZDN+eHZ9fr6tW0gKLeDQF7drHrZ2I4WilUF
XQQSZ6j5lYY9kRK0VvydQKtnQCoRe5pf0q+qn0BvCmTCg7AvW3m8qR0kEEdc
QIEX9nxq7VLDTzx+stUVF+y/gk5Xu0cIdJfDdcgMm1mk0OU3nUBs75JNZdbr
2YYh/88MgZ5OPL0hsF7PmcYTa78JZG3TZ8KNzSU2d55rCdeLwbmO3/g8ExKq
tpIMVHR3IflCKTa6G7LIzkRFjK8dnz/GvrD5a9QkMxWFJaHsFOyyJac3RWxU
VFXSl+SLbdeQStLkpqJRl8I4VexIzbHHkjxU9Kcn5aA09suSPYiDREVHX6il
EdjsDxqdmwkq4vj6n8Us7mcFHgw11kJUpD3pP/EIu3NC30pThIocb4+u3sZm
tL07KylGRVZQXO6PbXpUSXhKkoqERLQPmWL/FT7r5StHRY9kdpxZwf1Wp752
R/IBKhL3pXcCtqsGucpXg4pSFqLypbDvFtmcOoOo6M37EblN2JNpf25IaVHR
Vu6Hil24/8ddlu0tPkpFIhRhrf+w+/hjYlosqCjKRCQyBN8n7Le/S760oqLX
/pnU89iKG6TLkq2pyC1L1VAXO3i6cvSMHRWlrYSUcWDvqJ49SLtARemMbqlh
+P7ydDk5x+lNRXmZj2w88H03rSEnRPWlIjVGs4Rj2E7cLLri/lRkvT3MXhrb
+tnze/sDqahNVr6tE9+fOrNch5xvUZGutvTKbmzC48PthrtUZDCYYNeN7+dY
nZS3XfeoyPI+v24+NifVbXg4jYr2ZR2vu469WiKkuppJRacs05PFsYf/eA/I
P6EiG4vDng43cb/1V9gV+4aKHt4uE+0KWe8PbOapZVS0n2b49BF2rlBfUG45
FfkJ1DS7YadWRHyrfE9FnJYKI+zYNxhH/Gc+UVHu1zhdpWA6HA9J+3L8O473
YPhXtyA6zERyOlGWqejd5lt5Wfj7RyD4IFkS+/7Lxcr176HDvl7lu7G35Rl+
y8BOu/CL1xTbK/AlQyq2ns77t3HYvl0OpgnYmWvem7as4PWKmy0GYxtfHnvG
uUpF82FXZB2w/S6IWPJhR3ROqp/FzrE5xboDm/mKgZEd9ophtbke9oHo2ivW
2I9lM5nCsL0NMspOYjMOm5myrlHR9qGew4exd/bErJKxU0e6zLSxT7XW5Epg
39lTceEQdn7V7pVD2J+eaUYAtnn6luwg7Feicg37sIMTDxvFYa94OPfuwS6M
vPY3E5ufSJhSxmb1nTSswr6lmLpJAVvhsvifZuxn+X6C8tiWFyyyBrAt3LXl
dl5bP++3DaaxLwUtHNiB/fxU3eIa9vfuGH1p7P8BSo12Pw==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  PlotRange->{{0, 6}, {0, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467400208021324*^9, 3.467400228818729*^9}, {
   3.467401806753812*^9, 3.467401825231566*^9}, 3.4674019689584017`*^9, 
   3.467402139186891*^9, 3.467402194293186*^9, 3.4674022705791483`*^9, 
   3.467403313088077*^9, 3.467405677131386*^9, 3.46745860766999*^9, 
   3.467458856872663*^9, {3.467459863872346*^9, 3.467459893407856*^9}, {
   3.467460028343045*^9, 3.467460044271998*^9}, 3.467460110420808*^9, 
   3.467460881123699*^9, {3.4674609354542103`*^9, 3.467460951336432*^9}, 
   3.4674610171571913`*^9, 3.467461160980579*^9, {3.4674612465992317`*^9, 
   3.467461293389735*^9}, 3.46746147026502*^9, 3.467462290494022*^9, 
   3.467462333738751*^9, 3.467462396434224*^9, {3.467464344220459*^9, 
   3.467464361184091*^9}, 3.4674645009965*^9, 3.467465071966456*^9, 
   3.467467138722001*^9, 3.4674786066811533`*^9, 3.467479592085585*^9, 
   3.467480321516694*^9, 3.467480451028105*^9, 3.46748079793591*^9, 
   3.4674808300002213`*^9, 3.467482814553454*^9, 3.467483057927095*^9, 
   3.467483491288652*^9, 3.4674835265431004`*^9, 3.4674835712634897`*^9, 
   3.4674836903103247`*^9, {3.4675792720218897`*^9, 3.4675793245858803`*^9}, 
   3.46757947920603*^9, 3.46758067406468*^9, 3.467580822641858*^9, {
   3.467580967437091*^9, 3.467581015116157*^9}, 3.467581095020904*^9, 
   3.467581508668949*^9, 3.467581547208926*^9, 3.46758274620327*^9, 
   3.467583056400243*^9, 3.467583091354588*^9, 3.467583479543808*^9, 
   3.467584084476872*^9, 3.467584149864945*^9, 3.46758425286695*^9, 
   3.4675843227990932`*^9, 3.4675844772350407`*^9, {3.467584547421075*^9, 
   3.467584559013462*^9}, {3.467584606457282*^9, 3.46758464082533*^9}, {
   3.46758467918598*^9, 3.467584700424111*^9}, 3.467584732211088*^9, 
   3.467584809261393*^9, {3.4675848639204493`*^9, 3.467584875125538*^9}, {
   3.467585384526593*^9, 3.467585399225974*^9}, 3.467632233095434*^9, 
   3.467632369228805*^9, {3.467632434255093*^9, 3.467632477061225*^9}, 
   3.467632534179681*^9, 3.467652529936441*^9, 3.468590123181076*^9, 
   3.468593542296441*^9, 3.468593955427764*^9, 3.468594455090699*^9, {
   3.468594515991889*^9, 3.468594541073823*^9}, 3.468594671779516*^9, 
   3.468594720815921*^9, 3.46867373926055*^9, 3.468673803986596*^9, 
   3.468673839570578*^9, 3.4686739575001783`*^9, 3.4686753164931803`*^9, 
   3.46867841606458*^9, 3.468678538219779*^9, {3.468678767688879*^9, 
   3.468678783333589*^9}, 3.469193248151084*^9, 3.4691934128574133`*^9, 
   3.46919372206645*^9, 3.4691937648471107`*^9, 3.469193825359993*^9, {
   3.4691959818223248`*^9, 3.469196023005878*^9}, 3.46947998233252*^9, 
   3.500842628459166*^9, 3.5008430392159986`*^9, 3.500843277934043*^9, 
   3.500845811889476*^9, 3.500846103931106*^9, 3.5008471919820023`*^9, 
   3.50084733149835*^9, 3.500847743360218*^9, 3.5008481501219063`*^9, 
   3.500898467422748*^9, 3.500898579441835*^9, 3.500900569445223*^9, 
   3.504361818273672*^9, 3.504362923653009*^9, 3.50436302387208*^9, 
   3.504364419626297*^9, 3.504364650773539*^9, 3.504364956305894*^9, 
   3.504365456745977*^9, 3.5043655349196978`*^9, 3.504365710822185*^9, 
   3.504365957608575*^9, 3.504366022435239*^9, 3.504366092281097*^9, 
   3.504366283498828*^9, 3.504366423609313*^9, 3.504366571046041*^9, {
   3.5043667968855753`*^9, 3.504366810150338*^9}, 3.504367044890637*^9, {
   3.5043670756796083`*^9, 3.504367083337508*^9}, {3.504369289631968*^9, 
   3.504369332757823*^9}, {3.5043693729257603`*^9, 3.5043694296604233`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"totPlot", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5043645809455214`*^9, 3.504364594688599*^9}, {
  3.504369030852808*^9, 3.5043690311482964`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 0], LineBox[CompressedData["
1:eJwd2nk8VU8bAHBlibvjLpayhVAktKmcJ2QtSaiQSoUkSUi0SrJvRQoVyVYq
UYRsZU3FD9myZclWSLaEd+b9y+f7Ode9M888z5yZM0fa7qzZyeVcXFwy3Fxc
+O+ssUuC6dlrWou7w9bzdY8R49k6Ic7yVwjKrgMq2L7syZU28mFExrM6JewT
bcp+M81RxNcvcgrY/orf50riY4iLZ7pksTn7CnPkrsYSXtbLV2OnecWcDTp2
nzgRtVwa+2OlUf9++QfErpLIldjPLwiZ2vA8IjZWSolhXwi+mhk29YgoPRTE
webPPuQ42ZxEhJZNCGLXVVSUy1U/JgbhDw37Xpv66oP5yYSxTD0ZW2k5rbMw
PoUo5hbhxf7N8tk2FppKJGy5vgy7QHEwVvpqGiGs+X6BF3n3vrL9/scyCJ/L
9VPYZx95Vu+Vf050r2T1YW/J6ZX35bwg6kX0u7C5TihoW/G8JGg2lm3Y1Rei
H4ZMvSQuuy19wbZ6eNZqovkVsWXH9bfYWorygUGm2cQh88BsbJnsb7mrq7OJ
6YNOmdgjFYYsy/wcIlPj9SPsS79W1+XHvyFehJ68iX3Uq21xPyuXkK1YewVb
d3mk8s/QXCLAqtoTm8peDJK8mkek+gc7YD/Y0bLL71g+oWqUqI9dGhJSsEe+
iPiTzObCLhpurSWnFxEhTfemeJALDdZ0Vq8tJqIKqSPY1suPcT0WKSE2Jbs0
YVsUzctISpQSGx4OpGIbbdrgyFF8T3DusHWxDfqbXT2d3hOqcW2bsPXvXLnY
9PQ9cdb6jCK27u+PQbdVPhD3Ny9SsbWe22fSNcqJhJefG7mR1eXjf68gKolr
GXpW2GpN2vP21yqJHtGVRtiqfkPcFaWVxKe3xVuxVb5vYvnpVhHh2W4i2AoP
6jdzGVUT295ONyxHXslecXnW/CMRrM+rjc3L57ZiyOkLEerSN8+FPGh4lT6Z
+oW4I5D0A7smNISz0PeFuPBJvQG7MqjhdsD6OsJq/5d07GChX4/j0+uIPVtq
zbGZMqs/fEioJ/68t05c6hoj5HeG8rD8G4jHWbKrFpE5vbf57yc3EHfvhHJj
89+8T5F830DMqBcPLSAPV6UyFbkaiW+5Pq+xX5iWye7wbiTokQeNsLccndE9
6dJEPKP/OPUP2fDqsZuvLZsJxc9zkX+R1cJL9RLdmwnTIYPz2CsfSvOHRjUT
77OOmWOPF/UEnfjcTBTcm2BhxyweixDWayEmmmNj5pD7LtvFndvYSpwUXnVn
FvnapeNZysx24tYpc+dpZKeQ926iau3ELxUeA2zz+NUavKbtRNbWq6ux1xT2
vvkW3E642be1TiF/nj9eGMz9jQg3d9XHXulzonLo9zdC+Lij2B/k3IsnO57U
dxJ2eWvvTiCnaJ1uFvvdSYi1/XDCjuE+Vx8u1EUs5pzQwvYMvVR+cX8X4TcR
2zeOvCnxduaepi7iT3ahMrZ1X3eRt3M3cfBwV9Yv5DYyPVzGtYe4fzPp4Qiy
2S9ByuFrPcRtiX9nsGvqmIF3I3qIACHaduz8aLEblKweIoS6r3kY+b6k/IXp
iR6ivF+YhG2lvuNIzfnvxNa/k7aDyK1Wp9e7XeglVuZeLe5DDvqu73zXv5d4
G3DYH1vTSTa9MLqXMNgwtBs7/mKHzIqcXuKKLK21F/lo7F52/Hgv8cLz5c/v
yD+a1BfKT/URG+ROa/UgT5n+qxG16SdY3U+SOpAF9UPtS+EHQTrpadWErJte
SKzd94NIshZnYnuRR0Wij/0gDqy2+tSI3P3F6KOj7w/C3TFOC/vlQX5Vxocf
BFVvTLwB2dTpxpyt/iDh/ci8pA45IvRiyL89Q0T7c6WMj8iMxpOvNluPEJD5
tKIEGX7uHDY/PUIw8xadsV35JGTcfEYIhX/1Qtj1W75GPosbIeRUZ2yKkaMS
9M5JfxshjnlqjLxDZjmsUSUfHiV6qPfG8pHF/g5mdtr+JNK6LXJzkFdLOaff
tEPzTs2BwlTkkE7pxNBzY0T0o9v7safjm2Ojr40RDg62wynIVaI6AU8eoHFz
SWZjOwuLOZS3jRFv7zGcknE+cJ+I8lUcJ4LczfgSkZ9MC5qWJY4TDgF6h+7j
euo483Fn1ATxIGPPw2Dk0r/XdjfGTRJl6soejsiOxVVVRb5TRMfelet0kee2
MmQ0gqYIfvVdATp4vHMO+KRHThFHpvJ6tZGfpg8o33k0RZTl+cbuRP51m+f2
qaIp4vy653NayO6OcJj5d4oIKhKM24rrSzBv4tS5aUI7U2z7ejy+IUtGXV7T
BMnwUZoKchKffrL5tWki+kcYE/v9fJMlET5N7GDED69D5huYLGBmThPc5Urh
Sjhe+ev9iwenia9K/blyyPeOp4qxjs4Qj3kjvcRxfIxFytY5zhCfxaSKxZC1
1ANP6brOEG6Tz3mwvy8/nXf+2gyhfbw8RAR5XZKK5X+PZgieTU8jWMhF3a8j
w3tmiPJluvZ05N7DH/hJx2cJtWcPdZYjKx/smV48OUd8Zi0x+jtRvgsRi8Fn
5ggnqd86fcikT/G8oh5zRL6Vlmcv8uDOg0x1vzliV2p7Sw9y8tovGxyS5giJ
+fnoTmSxpULnL51zhPs2n1/NyHwpsd8fHvhLWPGQ6TXInZN7P4PhPLHop9/2
FDlMvHm16755woVGKc9A1tKxvfjw0DzB7/j5eTrywyhn2cVT8wSX656rqchH
NwR6FwTNE8lZO5iPkXtdyuQ31c4T3bMWtPu4fUMaV9fu/UeMJ54zvIX8u0tU
lW2xQLzu6us+ihzx1NvhwIElwuq1kSQVWZ7Ov8crjgtk9ik+ftUxRrxxvfY0
7OEyGCKdZexCbpS7vWJf1HKwDfhR3vhtjJC90aBw+B431B5S6TZE3mrapfEw
jgf2t/28VtA+RnS43tQKDeGFgHOHfq1FfrX1ELU8kg+6uyoaI1Cesy0rW9Nu
roA3v8XOsJGJ71yRZe78MLV2aTqyFdXv1d8SdV78QOJbviUC+bt437OOS/zw
QVPvchiyn0Vl1awfPzyOPc8MRq6pCuVaH80PKsvPuPshW74Qc417zQ+1OTET
F5AVdlMW097yQ2kzn5sn8tzgQvCbd/zwWpV72h05XqYntb6cH05I2/G7IfdE
p3at+MoPeeOD5s7Ir9TunWG18UOZ9K8xJ/z7X4LmZTr5IVZwOvQUsryAC0dr
gB+WKZf8Z488++TIE+NhftgkZXXxJHK19j71Q7/4wfdYiswJ5Ptd2qX2v/mh
Jj78sx2y8yWNve7T/AD33+sdQ9YSle+4/pcfNA7vKrBFpr/hnA5f5AeptY/V
bHB7xv76Z/AJQNnb40oHkGfsSou62QLwVfwX7EH2NTRR2bNZAJYuj0lqIt9j
O1LlvQRgpdudjRzkvJWmxr98BMDTOGM/C7lFZkvgm6sCoP/fIU9hZJH1/Lz6
twRA+92TajpyjH7aP4cYAcgxyE3jR77jNTiSniMAM+G+e+ZbxoicK3WKbnkC
EPOAN28OucEvz0GzUAC6yl3WzCILRQb01rwXgDMrZ5hTyJHpCu0j/wnAtH+P
0hhyWJtjjfKEAISFvYU+5OfdpvzTfwTgRK3c3HfkTwNb9IpmBeDhBvM3PciU
Sf4yEy4SmIp1aXUhB5PT356lkyD5zPCtNuQMwciZzcIkSFmWdrIVuYZzcSMX
hwQbU0b0W5BJsoZZERIkmC3pFP2KHLB9KC1LmQRUob2/65HTtOsHLm4ggbSg
+GQdcqXBW1ntjSQQ/cec/YLMZxH46L/tJChWtaV9Rr55RjF20pgEXz8VOdUg
J58X/FqwlwS/pzyCq5E/XJwT9ttPgtjOgRdVyDz+1eFMaxK8Cc7mrkT2fXDq
1kYnErAF6U3vkbWt7UdNXEjg/sttGTa3yPF9jm4kqG4M3lCGv6/xyJvrniRw
BjhZiuwXaSMe502CAGHP+BJkXZND13KuoP7ECDUXI/OSLfs/+ZLgguGhknfI
FZVmRj/8SWDeIRVdgOzvt/cFVzAJbOipZ94i6+3czRQLJ0HRPbJRLvKKRYOL
6rdJ4BV0Ruk1jtcFbR37OBLkXUyaeYkc6LSx+eNTEki0z1akIRutUdve/4IE
l+55VKTgePepJC5mk6Bx8ktNMnLQYYXTGwpJ4F977fsj5BBT8aWYWhIo+Z8w
vYccsWnZGrufJFicCNwSjGw6uRDsM0GCdRUSEYHIgi//jt+ZIkH83rqft5Cj
FP/kVy6QwOdVaYEf8u2VP0yUaWRYbrzz8RVk89bebD0hMiwJyypfRmbGdIsc
ZZPB39n3nQ/yHXrb9ygJMmiebpzwQo5Z/slzVoUMj7fdTz+PbFlc3S6oTgaN
JiVHN2TOpQpYu5kMNrlOyueQY6eKSbYEGXhP8ta6IN8ffPXg/V4yfBD/dsgJ
2erJC+6O/WQwcpA2OYUsbvfMcfoAGaxjJQwdkePbn6gpHiWD1Pot++2REz7H
VoS5kuHaylu5dsgr3wJ3tDtqX4NA/zH8+ceDRJwXGWIk+0Ww47y2vE29RgZV
xcDbR5DFjndPZfqRoU5Fu80Wt2dPgFpOABkGrDTWYN+TaXlaEoHa15rQYIMs
Qr02WHGHDH2eXOrYsTNr5D7FkkHri1usNfLd2gsPWh+RQcHJ0sMKmZ0r2d6V
TAby38zRQzheiZWcgTQyfOvqOYUd7cmJ/P2SDJZnkj0O4ngfK/40m0MGe3sm
D/YdYwfSUh4ZDhxcHXsAj5dU7g1yKRnejbfWWeL5gnykRLCcDLM/D3tgR03x
LXCqyfAqcqskdmSNpadsPRlWPk73tUBmvF58pdREBkMX1nbsiIcpY6qtaPzj
bv01x9eDTNZt7iCDt9HwO+xw92nHHT1k+LMo749NO/LgiU4/Gb7Gye/HDjPU
+244RIaUk/Wy/7+u8UvC9CcZ1iynz+9HDpWIsbacIIOjV0UTNkVAK9Zmigyl
qp052CGT/Y12c2T48Wdb7P+vd4YKnlogA9/4h6vYwVUbTc4uo0DJ88OnsUnZ
HUEevBTQkhy2wg5KuFnpI0CBt25Egxm+HqDM40ulgNRBlvE+XG9uTRAgSAGZ
N1MVe5H5D1++HMaiQGPxkp4Jrk99ufw7ohS4x2X2cTfyrZUe6onSFFhD0+sx
xPNVBVM+fwMFXGZv7dLF81FWoV3JRgp0jE0Oa+P5JO7Ew4qtFFDr9YveiXzD
NUekYScFnDMv/NVCvi5mTh7dRwGzLEU+TWQu3n/6vy0owLdk1LwF+drYY7/Z
QxSgSOs+34x89cPkAo8dBXZ1kFw2Il92uT2+yo0CX527N23A80XZho5ODwqk
miQaquJ8ZNdVP7xIgRtffh5bj+8v7yiPpa9TYMbhwGNlPF8KPg3/7keBWMmg
2nXIe08aXnocQIGjb87Pr0UepvhbyEWgeJlGOikh5x2V1R64TYH+ha8Zini+
yylTSb1LAZ/u6XEFZGmbpRWKDymwV7E3bA3ywade+eueU2Du6GohOWT5JXbq
zywK1JZNXpdF/mP2+vbz1xRgG3+aWY3z6e+Es+o7CvT1p0/JINuYRByaKKEA
V9Wry9hKSSp6rz6g8TlbR8auMDwtqVFLgVFtU01pXA8JApSpL+i6cU6bFLLd
ROrs6wYKVDWpXsdW3aXX79lMAc075crYC7F99ZvbKRBeeK5bEt/fRn2LZjsp
IMKncQ87FqSfvv1OgdUZpIPY9neK73oPUIB0YnIltsbgYb9twxRQOTfyQwJ5
+fZ/rv9+UoAWOZaHXRd+//C7CQoY8P4Lx37Qu8XoyhQFnkZSzmCf3ty8iZij
wOZLK02xtwR7rOZaoIBqqPxWbL4uYUYpFxUU6XIK2I1qr/5d56HC0mfBVdhJ
/qZD2vxUWBQf4GC7tv1q4qZQoaHyvgi2lkpo2Qc6FZ7IK0hiU3zXvrgpTAUJ
uv9a7Nam6jg9DhU82p7uwE5RdAxYIU4FzxMRFtjul/k8qiSoEE9WOo+tXZ98
LFCGCjxZLjHYDDkdEyN5KsTm7S/G7vTq0SQrUWG5wOef2M9qr66pVaZCCfk/
aRwvbykJZugGKmzP3G+Nre9eyGWykQofbPTuYzOrrH7StlLhGSWhE/u7+Fzr
l+1UMFMzUsDjdeX9xux9ulR4oXP2I/ZuTuNDIQMqVKZXy+LxFz3tFtJgjNrv
TdzAzhF6cdJiPxV2/9m+F+eLr/0eM/YBKuioPS7ENs0f0Wq2Qu3n+a6C82/k
mILIITsqOGxKlMb5aeXcvva0PRXWz/NnYld5hhGXnajQs6xmB87nJ8F/7BPd
qHD9yoSL/P/vh6ne2Z5U+C2+mo7z3/eRVVi5NxUijHRzsI+8Lnk95EuFLuM+
Cq6fz8Xnq+f9qfBwWKEEe3uNfAc1mArfXg1ewPWW0dg6LhlOhapOHg1cj6Jd
ITxqt9H1HgMj7IAhQkT3LhWcefyC8eenJ3+vtYyjQsJp0Xr8fQ38h/Z7P6bC
IbHaU7g+tYUpDiGpVHDRkn2H2/NyVbH3g6dUMD26m4UdqiaXVJaN4jXn3Yj7
9297y+vGXCoI/n6zDdtJP7h6oIAKlFHlNBwPfZuJcdIHKjwOVo3E8Xtjn8yz
qooKfodGqdiy5w6IrK+lgtpFnQgc72X+74j9jVSwebIyBY+Pa4Tr/pMtVNjn
W70Vu/P+aocL36ggZebQgMe34EVgWFwfFYKYH0SwlfK3J2UOUuHR9bQP/6/P
D2Ovi0epkPK1yhOb70tSdf046p/8pvXYHq0WHb1/qODYyvUL52NfL//E1CzK
58wt2dhmvwp4+BdQfN+MXsEumXUREVtGAzvbtfuw13PLrFvHS4MPx5cr/b9+
qU2ElgANpL5dEfh/PYkE7Del0uClWubYKpzfMtsc7ARpkKJw7xv20Lpf3u4s
Gjg07anDPrg5McxflAZeKU012BU7zZNiV9HgzRHNWmyN3SveZEjTQE/8ZiP2
Y8v86kI5GnwyLOrFFjp2puOzIg2Ovvo5h33ttNREtzIN8tzE/l//vzwaeCY3
0GD7ktE27MPX/EV4N9GAvvqmPXZt0NZ1HE0aqHF9jsXWjB4lFLVoEEZX+g87
7eHD/du0abBSOkEIx4+TYeawR48Gg9ZKVpL/n+95fY4Y0UBTqzEN+09RXtg5
ExokJsQvYttVn066YUYDSqqfNR6v+gaJN9GWNPjVGVKMDZ311alWNDCSfq2E
x/v5oF/HW1vUv8R/8djBC8M8nfY0oPZ+j8H5YnDuTlWGEw3MPQkWziee/h0h
F1xo8ORm1T3sK7URwoKeNDAINHuN81ETNJs7LtIg7YLxbpyvM9m99zMu08Dm
69EhbNe4TTK6N2kwdezjRpzvyvTufkYgDdrCmf3Yw76B6R0hNABVu/u4Xo47
fVO9cAf158BPNq4vy62+RMZjGjDOtFri+6dw5lruC6k0aG0+slEFz/dSTRU6
T2lwayZJFN9vDfkVTDpe0eAEW20S34+3N3+yYZTRYDxQfEgDWcZD1NuzmwbG
SYUNO5C7Bst26PSh+DwoXEEgx9s4L2MM0qDMPhgAmaVbHJA+RoO/lQYleH3B
L3zy7rdF1L6r9Gl95HJ/mnX6cjr4zFuY4PWJ799cCU8+OpRcLM8wQp7vIaXQ
aXTIOfb+7B58P7fIOfVNkA4KgTIteL3jXn1YOZ1Fh+0qu3VNkTfsWDHhIUoH
ZZ81OXi99OvlyxztVXSYEF8FeD31VNbKiy5NB7e9PqewHWO5t3+TpYOBr1cM
tiwlcylNgQ4hfxQrsXuuWr73WEeHxnPJ89gPJpf8tVXpsHffP3W8XrNySDei
a9DhnccuV+xGk3/1advQ9zXM/sGOLHsS7UHQoSAkYAdeT5ps2ntIW4cOfCHm
QdiVq5K6243oIH30hypev/pFGienmdBBlVUXhA28Uw4eZnTIqtsyhJ0/qj9G
s6KDhEx1Nl4PbwqLD6o6TIdwt55VeD39av2EnO8xOvwr9g/BTne7bzPlSIe2
3GcX8Ppbljk289wZxS9Y7w/2o9c6tx1dUX8yH3rg9Xvs7Gh1+wU6wIN3/ni9
z7y/82S0Dx2SdGLZeD8QsS2Ga+9VFO/+w0+xb10hNpf504G5vb4X7x88eaKS
06LpcHLELBLvR34/GSDs7tFBlnLD8Ciyi/62dvEEOhzI6OHD+5eTQX2C4cl0
2G2sG4n3O+aMzVc9sunw5c6O/pM4P7OCxdbn0sFh1rcS74927+9+PZhPh1I+
qRcOyLoxgaPWZXTYNHkmDO+v1Fd+O6RdT4fArrjQM7he36lOzTfSIcWo7z7e
nykduRnxuoUOuxxuZ57F+ZykUqnQTQenq3K9eD8npHBdgz6G8mfFsnBP5FnR
2ytc+Bgwvfv6j2v4fuG0o8mInwEs94NGvjj/Cn4krSEx4Pgz+1c3kMdttmv1
UBkgb0uL8kf+8bDf3ZzFgIqWorAQ5K9yW75ryjLQ/nPGA+93++qddUCeATlN
kXvicLwuJybvUmDAYMwDpQRk+leSg+k6BmTYfvqD98sG/h0jJzUY8Nc6uhLv
ty3VhPac3sQA42ftVRnIJzr1nrtuYcB48fIvz5Cvb3rp6rOdAR5Kj4bwfj1/
wHcqQpcB5V05Fni/XxWVaxmjx4AfPYk++HnAV63R3DgDBthmFzzBzwsmYyy8
U3YzQOGZIB9+/rBcJ6j9qQkDLrmLbf+AzBgr2p5lyoBAkyGPCmSJuMmEN2YM
2LfOSxs/71inr7BUYM6AaL7a4/h5iOakzdFSSwYEqScH4Oclhg8jSysOMkCb
JJz1Edl+5u+NehsGaJTMU/DzlYepn/h/nGCARH7d7//weO5f7jRqz4Cs7i2b
GpELlzZ9nHBkwPnKt5ebkFsOPAr958yAz6u1RPHzHiH+80JCHgy48rD0Rgeu
L0eRlTtuMuDtxbeqQ8hRzD2XtW8xwG2XRcEwroeS6536gQw4afDGaBT5ncjI
I7NQBnzS672An1dNV72Tc4xG8XcMp0zj+UPx+PrbTxigafxThqcV9Z90e9Aj
lQFeA4bfeJEbhssSD6YzYOv40r0V+PneMxmmRCYDPPMuyJCRhdd/n03LYYB6
6FUHIeQijWNlRe8ZsOWTQok0MhOOWAz3MMCuPSVEB7nU0tpnp4QgWPwJuIaf
h6ofHE5nJgqCwNqaIvm2McL5hl7zDnEhaM+z3vYJOcCe/++y20IQs/xDnHs7
6s+qY0vDTGGQGHjarfxtjHi76M+tFCYMzD5Nvf+QP2frDIcKMuFq0zZutw40
H+/I6Y8UZsLQA29+d+RNlbI90SwmbO2vInkiP2jjbUkQZULNhnd83shmJzwb
EsWZYFvixXUJme/XwOcnq5hA73CZuYx8ZllVeaY0E2xKt3ZcR5YK3lKatZoJ
z8bka2/g583M9MLXckygel/Nu4kc8EA07+0aJgT6mCbdQt6uEJT9TpEJO//7
0BuIPJ7193npWibMlNKyQpCTt53OKFdmgsOPWJ9wZMre3YmfNiCHCPNHI5e0
FMbXqzNhYLa5+i6yu51ybNNGJlh6+AXcR/7mQQvv2MoEfyXtfw+Rn8bXXfq5
kwl6R6UKMpCNhs0PUs2YIFBl6l+MvHi+fL+gOROGq15Ry5BfLWzcy7Jkggar
J+IDspggR2+VFRM2tTgFVSMPbW5VV7ZjgunDcoMG3L+bh+l73JDJjwb7kcul
7CtColD/uqMurehE8emqF3W5wwQxcpuhALJ3wo4ze2OYUJT8SoiMrCrGYgrd
Z4K9j+hdGj6/EP5w7G4iE6yftzmxkN35ZBYSXzLBQlYTZJBlRzvUcz8zYWXc
jfItyFczDG/F1jHB94oRRRO5zfF128X/mLAYYrV3Gz4v6A+5vv0rao/OzZod
yP86t30p7WBCgs7xGG3kAwmpMo+7mHBO6kuJDvIra2FPvx7U3r6RH7rIji3D
K/X7mXB30W2dPvL7GEtXhR9MaM+aNzRAlrAoey8wxAQJXrcThsgXhVU4I8Mo
f5gDPkbIjfX3nGpHmfDdyjHCGHl9BG9R5i8mHJJtNdiDHGRyTjB8nAn1M13n
9iLDR4O8fX+Y8KQvMn8/8rMPM7zN80xofLZN1gbZL9cisYfEAmn3RH1nHL96
44ARCgt6BAROuCC3D+88O0Vjwe32Gz6uyGoSKjsEhFkwf+tknDtylx9fq6o4
C66OtMRfQtY0y2VcW8sCx9RDscHIA6czZwKVWcDU5rMNRY68+bjz9noWvFqs
WxWOz2fywp+lqrPA1u1ucBRytKSjwZdtLNhHDEjcQx4fFbkmsZsFmorWEk/w
ePLRHRRMWMA1tMM3BVlfitdEzZQF+Y7tXfg86MH+CXE9cxYc7d0ZgM+PjPOr
c8/YsGAsoyD0BfJ0Q/GDC7YssDE8W/wSOenn65vXj7Lg5are4SzkWamk/dEn
WNC8SnR9DnLKLe+xQmcW9A5rnclDNkt0/Vrhgvp33/XMW+SFfPt3da4siOAK
dchHNv9lFtznzoLBbSmGhcjLLNauoVxmQYDU4YpiHH8XaRr7KguSZXtjSpAP
BnCmJK+zYPejx8dKkZ8XcL9Xv8kC1zm+gTJkG5lvttahLGD1fXtajq+7fkrQ
DmdBhtSyXRX4+4uLvilGssAgz7cVO8U60Wr2DgvO+3/9U4n7kx51ryuGBcdl
KnyqcDxmb7RUxLLAuG/PIvb4HXvL6HgWPIs6OV2NrN17IPrSAxaUe7Od8flc
9AbDxuOPWCB7LbEDW/PzWjO1ZBbs+hiS8xE5ZOWqSNEUFmg/ERSrxfngRKvj
SmOBTPlbH2y/FRN7vjxlwfvJUvVPyF8tvoe8yWTBlw1GQdiKyQ0fE16g+DD1
OrAv/f5AupmF2tNYs+4z8md4Y+iczQKtsMt6X3D9h6cG7H/NAoHno1V1yOc7
Yis1c1nw9/Jn/f+QRbx9dgkUsGBVb5RmE7JTlbPfeCELQheNnn9Ffse2fd9c
xIJHX6UkWpDtsmFnShkL3ow3TbTh8Rnl3aFTwwJJj30O3ciLmjM+SrUsqPva
9Rafb+4LHMwX/MyC58GzK/D557Tcxy3d9SzYLh0Qg89L4UiExuVWFnjFuvsM
I0dlXj9/op0FHYMpaSPI/fNur4w7WBAr+atuFNdrrIWqWA+ya6DQ2P/rW2xd
7iDq/4asg5P4PFKKcvrBMAumFnQP/8HzgctC+s1RlC8QYzOF5wty9xrzcRYM
WZgYz+D5RffJ6okZ1D7DbYN/kfOjYuxa5lA+cXeWziNTe24lFs+zwKeYJ+Yf
np8uO0mGLbHg7uka5UXk+TfrxdeuYEMgpUJsWdcYoRI/Xc4vwIbMhPwP2Eev
v3MdILEh12fvKXxe/MHYuCKRxoaB6xZJ3Ph8X1Xo3FUGG567lm/iQVZgt4of
FmJD9taGcuyQbvtzImw2eGfUNPDi8+hy5ZXTHDZsDn9jxoffb8n4U9EgygaV
Kt1abHMP35Xhq9hw9fy+FyuQ/a0MK50l2aB8r0mEHzmPYLgZSbPh3cUVl7FX
kh5U8sqxYeaO30YBZJOxE2698mwwmmsJxL7WuHZVqQIb+k//bMF+9fZ35QMl
NtyJqZQh4fdnHrx1u7SODf8izzhgs/2urbJSYcPN/v4UbINT+lWbVdlw9tbm
HmxvE9p5lhobsr6dYpORn6k3rZpUZ8Oat3562J0i8VV1G9ngcCTiHDZj0e78
881saL4WfRdbu1dRImQrG17uSMjDdq8arzq1jQ2/ZbMasVMyc8/r72CDi0b7
CHZL1BUJOYINBS1yi9gkr13Vy3eyAX7GkSnI2w9T3Lu12aBZaMDEdtFukCjS
ZUPK4mYR7Edr7lfH6bHB7JsHB/s/yjH3iwZs6ByhCWHz/F4jecAIja8agx97
U/Ovao3dbODI3ZrDv+dY+NpdyIQNi0+uD2DfT7wkOb6XDXoraF+wa/11aj7t
Y8NdgW3Z2IunSR5P97PhyDfObWzVffWSgRZs6FiV44Jttym2xv4AG1a3S/4/
XnfEj3joHmKDcMRpUewKLnkpGWs2WK5JG8Txnu0frVmyQfH4O5CNbfPSW6rg
KBvdX19pYYdF7/wYa4fa33xiEY9viTe/p+cJFI9Su3xs2V0xHzc4soFrMmIN
tqXSYU+6Extqw4ZacP4E0GWlf55mQ0Jlpz/2aGuWZ9pZNuz1/tOC80+i2Eva
/xwbDIvgMrZpMlF7/Dwbzqlfl8D2DeS7sNMDxbOhthDnb47LJ2nJC2xwe6kf
iz2w/07tPy8UD/XOKPx5ka3WF9q82WBsGRyEf+8S91Bt9BU2SJ6rdsX9WdTR
JMdfY4M2Z9d5HI/rfsGGSb5sOBj3/RweH39elYrn/ig/awSP05DDV5wvrgxj
g6y+gZAQspDBh4VPEaj9Cl9/Y98JYG1vjEL58uDVZ2HkWIG8vO4YNkSvmLuA
3w9JIi9kzT1A9jMMw++PyO42GV96hP4/vElPFDk15KEK32M2xG3k/ov9jKr9
VCiVDUeVZ/fi91NUTG4PiaSzYblj3G/srLC+NZJP2WDCiA1fifyGfit57Qs2
LOOzyVuF398xbfm+IYsNTgvcuhLIBRGK0luy2bDrTUU1dolgbYJuLhv+7jrx
XhLXi9mqb0Zv0fj4yW6WwvNPlIvYvgI2SJjXJGNXCwvePVyMxn/67hlp5N3m
dk3HS9lgO5pehf35Traw03s2VOZ6rJLB49fEY+ZazoaW3onT2P+xLCM8K1F7
o1g52OaWqZ8vVaP69GmZwm6OmaXc+MgG9TG1DauRrZoNjQM/sSHxv1X22N84
cYHhX9iwMynqDrbtwdHK6Ho2lLkGF2L3xO7gi29gg9SP5Z3YJ1rDdJOa2BCk
+2cWe0C02zetGeWXrTVVFteb1YbS561syHmoIY49ct93KaedDTykyzLYLu0N
Owo60Oc11FZjj4vLXSrtYoO5sdkqbDcbz/zKHjS/CX5jYE/FV85+6kX53/V5
Af+eV4fI5sZ+NpASlfqw/65y8mj7gebntrH32JdsC7K7h9D4PpZMwF58QPk9
MMKG8bSCs9jXug6r/vyJ6lG5Yhs2t9QLl8kxNP/xay/D9j/KlTk3wYaNT9RK
cPz4E/eNLE2yIZw33gs7qCdJkW+aDXVFvkrYFJk/DpRZNqjNjzTh8Qqz25Ui
9BfV18UOb2zBxzF9Iv/Q/STksCg2W3brMTkuDmgny+ng8Yd7N2f4l3OgYfDS
V5wvp2j/hY5yc2DyltkJ7MJZp/zsFRyYJ909i/Nr4Eyu6V0BDqRJs3/ifKT3
cv/wJnNg56z6SWy7T/HC2nQOKIqd24XzN0R7KF1OkANnOMmZOL9f524EAWHk
LQkMbP6kz851bA5ws2mVuD6ee3JV2EpwQHJ68wwbz98ju220pTjAmz+wCXvZ
sXu/5WTQ/+8vPofrz9xYTfKnHAcspBVacX3+lTzh5aPMgUeKt1wZyHrVlUqx
2zkwftC2Ds8XrlrMUh8tDiTN2dbg+eRe9tEDR4ADXLzJJXi+GU2YuyGvy4FX
nH1J+P4b5ba2I8eYA+usU7dz4fuTeHh4vRUHat8pf59G9/8LLpZ/SBc58D3W
8vl3vD7UUpbg+HBAJyhZD69/nOg8Bqsvo883ZXZ2Idu+zIrbdp0DJy2e0DqQ
9X5TdJwDOVB9Yd15/L4X2/N95Kd7HDB1SfHC68EIvfsFrXEcqKQ1yOD1I4lz
rr8/gQOtz6u/4PXnYq7E1sVEDnh/HlXD69f+uYvdKhkccOwVlMXrYdsaU9K2
Zxz49yVyGK+fW+6v0dB/zoFnZ+6/xuvr2m1Nt4684kD+3/VW75BzLquuj8jn
QBf7Ty9ev6uYrDgUX4jar7ujKRc5TaLTN62IA4aXfte+wfuL4uCvJWUc6A5K
qMPrf3aEHdenDxzIoAt3ZOP2H92q1FqB8mFucvwV8o1lPy5P1HBgR8zCerx/
+Ff/LnWhlgOzvhnWeH/hmXSnXuALB+7ofQzH+w8nHW05mQYODHFdEHqO3Ccs
uleliQPr3wYdy8T96xvz0mzmgNLH1fnP8H7jZkKtWTsH9uUuBOD342ot3Kdt
OziwpeXjEt7f6MkbS53u4sDm7q3XsUumpY0u9HDgRns4FVuzcvb8jV4OBNuz
n+D353LufkkI70fxz2QbYKs4plTG/UD9O9M2nYbjseXyROoQByJ+P83ClhEw
F88Z4UCYyFcv7PhWpV0lPzngZpy8G5udsexs7RgH7vrbKWNHeLfEtkxwoNf8
sDg2yfhFWd8k+r66Hja2n7j/6PgUit/jHVLYiyM27IUZDrjzFm/G9ipUB4G/
HIDinMPYEyEkJ9Y/NP5rXKKw9X28ijSQV1vRYrATTg0ImSNLWhfewzbUKyuI
QjZv3ZmInbh0kcpY4EDqzsmX2Pvchl6SFtH8cH/yP+xLp6SsxZBPn97QhJ16
9ACvEnJiiVsz9oJJ+SFDZMb8Ujt2+trE5QHIF4p1+7GX9R80513igNRyr1ns
dd/CF5nI6ba//mIfaKhIk0V+YuC4gJ1ZqrGgg7y20n45jv+hB4wUX+Tvl8Mo
2H7R+qZRyFcspOnYL0Ku/E1EninKFcTm9Rk1KUUuMxxjY6u6rZ6rQ97gHCGK
bX3K6nE38luZjSux/Y9G7hlHHjjTIYGddaBqZglZ3yRQGvt/UQym9A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.9952000000000001},
  DisplayFunction->Identity,
  PlotRange->{{0, 6}, {0.9951313935864183, 0.9960966996026455}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.504364595896592*^9, 3.5043646508211946`*^9, 3.504364956335936*^9, 
   3.504365456904285*^9, 3.504365534981764*^9, 3.504365710832904*^9, 
   3.504365957621244*^9, 3.50436602260352*^9, 3.504366092317424*^9, 
   3.504366283516623*^9, 3.504366423632806*^9, 3.504366571135541*^9, {
   3.504366796934723*^9, 3.504366810184305*^9}, 3.5043690318950443`*^9, 
   3.504369312031781*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"springPlot", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5043645809455214`*^9, 3.504364594688599*^9}, {
  3.5043649453020763`*^9, 3.504364947775344*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV1nk4lG8XB3DJTmSWZ+w7WYr2UnFuklKEUiQVkkqFJFla8AwNkX3NLiVK
ZCv8bFmzp5IlS0ghI5W04L3fv+b6XNfM9Zxz7u+5n5G3dzl0hpODg8NvBQfH
/z8XDjgnm7n46s4b39XiGWZDoMMa1Q6VkyCVpljJjd02M+YUquIM78b+nOfC
zqX3p/UmecDl7dRNnNizhbtDLqrchLKaC+LLQ2yQUHtXvtzjDxP5K6X/Yut4
Bm9oTgqEbOjTmce2bdR9GGkXDEoFMz6z2P7EdykblbswbY56vmC/fna4OfJn
OAh6tpt+xHboW8f81RMJPGT8eC/2zxV8YFMWDa39yfGd2IFqH39XJ8VC048P
5xqwGeYVRcq34uGtkdXRcuxsz1iXYLtEeHFW2O4pdkvj/vHDKimwqKHcHo2d
d41iZsOVBqFWzPWB2Nfu3Hpy92ca9DMl8j2w+QqPnfvekwGaJl95jmB3NjTU
KzdnQo7GukF97IS+TYpWZffhNpH2WgtbnVN4sCLpAaTaiFF5sefoPjvZoQ9B
46rEqW+DbChX+xwvfysbCmlGTX3Yxua1hwPtckBhl8pcDrZLmkezqUoeeGcU
ZSLs7UWjKv6Mp7Bj1Y/3itgcDqr61lz50MJvpcGD3XwtJjXkZz6obPda0/SB
DdapLtbfep7BOvnZ63rYumoqQcFmheBXLHBPGluhcKBUsbkQbj7Y8m5hgA1T
DUb0o2VFMPe8IPMx9vUZxc6ypBJwdF5I5Me29exbOkwvBT73A+mD/Www4IxY
9zW0FCY4E+ueYa8iloJlbz2HYl45eyvsFJ33e5h2ZVB/5NdCfB8bakJCyk1U
KuGxCIpgv2dD5WRvq+CjSngSfz+kALti35rBZo0qyLCWveGGfZzTjiNTrBrq
pqZ3fethw5HKvwqyMjUwWbd928d3bNi/dcM5htpL2BJWQIl8w4Z94z2uHk4v
oWDO9fhu7L3RN73e5r6E75lv4r9343rnWoKjNOugIfbyNzNs3TzHJyKb60Fb
x058uYsNm1SS5nihETzjPoFaBxs2vtX/6+jbCClihp3N7WxYz/yysqGmEXrH
Plmcx9b8uJXONGiCMcfXO7La2KCa0rWNY38zSFsveq5uZYMUwXtjwaIFzFWn
Soqa2MDN48b7xakDRMabuDbXsOGz0S2R7w87YMI2KrO8mg2vQkMYi2MdQEZS
rfSxG4O7o1hanVBpR+U0qWLDHcpMZtKjTjAQXnPM8j820BQU6+qSu8Aq0F0I
vWCDil4oFz2wG3S7Gy3t8nH+R6P4Eu93w5ppg5SWpzi/AYlCsi+7Ye268783
Y082PaSpcbwBxhX/r1x5bHhqVquk4/0GqgJ+tyTk4rzZ/jI44/wWqqLUrOMe
sMHoll1A8dEeqM1xDxq5h+cTVmOY7t4D7du/9W7AlkqV5wuN7IENJ4X3+iXi
+6ByJNihvQcGNLiuSSewIXbJLpxq+B7qjd6sPRDLhrEb9vcub+kFl2DOrz7h
bPC9frpgHa0fiI7I0xuZbHAKeekmvrEfzNNMtjiSbLBIUtzMbdYPwmXHFBL8
2bCmYrRk4E4/MIV2Hfzny4b2v6cr7qwcgOUhIXbpDVyPj0Pjl7kBWL+pGriu
saHU68yHrK5BWMx3eDl7jg0PdC/0SMwNAmvkp+KPs7i+lZe7wihDIN+Yf3Xe
kQ0eodfrvQ4Pwa8hm+lfDmzYmh71xOTtECiLZijN2OJ8jg1Xel8cBpNHhQUP
rdjQJygSpuA6AkfsmscO7mVDr/UFLbdro/C2PS/1vDwbgj/uvRgXOAoGB5u3
6sqxYYeT0qOKmFGwb5EfFJVlQ5LXBwXeolGQWzh8okQK71u8KZE0Owoi6Rul
fjDYMPF202L9+TEQuDJaqS+M7z+zf6/EbcZBVeKzo8afGRDdG+pYgyaAqLmT
r9IxAwaPKkDDfAIKjl6rSGubAU/BabEYuwmwixPPEW+dgeGO/S3n/Cfga66y
Ol/zDORb8a1fXTcBwbW9ZT21M2DmRP4+ufczcMaMCeiVzEB4qFfIP5MvsCsv
oGVn0gysfnPm2bbjU0Bz/l3S5jADinIXHwXYs8E9INjw8eRX2P7hUote5De4
8PRMcua5r1Dzx9f4zb3vsGwYQW9snoZzVU1Nlf4/YXLZ7ZaP0jQknH4oQbf9
BTptLE1btylYZzUyv3TmN1h2zzwXS52Ewe+m7cjoLxyuyOkWa/4Cc0Pi64kj
iyDE8UpcsOMzhOd6n7W0XAb9L2vUWhonQEWEz8TzHgeqTQu1o7/8BCWuvrl3
U1cgDme+tQPx4/BGOYrXPJITSfZLdu65OgZKZLfqiYSVyLJlbXHB2lHQNhva
nHqPC41Xc0xnDo3AB9cA3dAQbjSj4vZkNH0YnmkfW1UfwYNWMziEdwcNAnG0
sTc7gBfdcDd7hv70A3zkiKh150PVA0emtvv0QgJxbpWKJz9ysdcKyet8B/4p
529vcRJAHXwvRl0d3kBye3zDXVdBNG6ZJRL7oQtuOEfNSrsJIZaLqUQVTwdM
2amKHbNfhYLes7Ysf34FdxYnuQYdhdG314uHTzU1QNn0XrawtQgavfTLbbvh
S3invP3jDqXV6MHzurR3a6vhnNpprais1ciBXtRYcrYMao4e99GTEUXZw2V6
zrHF0BBJbzKWE0Xp8H2JQhZDa3sHzUpBFHGlvouvcymG94YGec4qokiqMtrq
oFExzG5dN3JPUxRJ7iyu/vuvCGQYy4bzuqLoQPDVqXLHIvDuyaDknhJFV4M+
BVXuLoRNVpOPaOmiiM9P5oSKYgEMN6UeXMwQRZxaV9OWqAUQon3k+/h9UeQ7
VuY2wlUAnySqd5VmiyKPigfPGz7lQ+KHmI5j+aLIWcjVSyQ3HzhP6/1MqRJF
vxZIvbgt+dB5KR6pDYoig/ouqYH7eXCRNOzRkaSgyNuH5yyO5MJCcNeElDQF
RZ+RsUzelQsBkTYLf2UoKInT3mVBMRdS0t3EyxQoiLG3OOXTXA50VqUc36pO
QTypcVszInJg07/5IU1tCjLPd9oY/voR/HF/+FnWkoLcVMy5CftsYDny/VkR
RUEi/saHtpZkwZlm6RT+GArKfMrJr5OWBfprN+mLxlHQ8zOdaZbBWfD324lg
uXsUROf2N2k6mQXONwolIJOCvhxVfZ3MlwVHok/uvF5IQXm3pzbw2N4Hhdqi
6/PdFNT2b5vENulMWFZ6Jbf0loKKjI7tzOHPhIHbQ3Xc7ynornPKd635DIg1
EVhFH6Cg8FEzjisdGcDfeyp50xgFDXn4nH/nnwGzbIFK1x8UJFYg687/NR3+
k7ZbnqRRUQzlnc779jRAxZf/dhBUxDKkbiioTIM6Y/9fRWJUpO2uvi0hLw1a
fTLZN6WoaB/PdevYu2kw0Ds+RFGiorCkEaqBaRr8i3Gq3rGJih4/WxRofZAK
O4Xd/YLNqSg138qC2pYMlVnMGy6HqejIpaDH5/OTQV8nxsviCBWVJN4nBqKS
Yf/Fkssyx6joWUf6IO14Mli/WrB7ZktFD8zdXN9MJoF34A39PhcqehfKoZYt
kgQvlgJXqt+lolUKNVzRlxLh7jf5qG3hVCS/Pqpo66FEsB+rUNgTSUW5G1pf
/9qaCAKv5vRsY6mIQdPkesuRCDYxJ31jU3D/ei7DCzEJsKSxdZHzKRVVlpbX
d9fHg8Gx8fn+DioKNd3K0N8ZB2LGvoFfunD9OnE2QYpxMK0rSfzqpiJTsY2X
pgXjIEbJfAvlPRXViQ8lc3+IhU/siiv7hqloPurOsp9vLAQFRs8WzeLfF4f+
DG+NgfbC3ZOhojSUeC1f3sczGvx1isYjqDTEu/g25YpDNGxtVBqJodOQvk/1
DaZZNKT0cb9PFqehn9VpDLZqNFxa0VT/RJ6GYl1eV4z3RYGQqXF62wYaMtw4
WuCwOwr2T1pYrTpEQ2vyJM9+VI6EpSv1h0UtaGgvW8S5mRYJzxa3mNKP0pDZ
yqmAhpWRICHKMJS2piGnB71pnB8j4Mu23k3r7GkI5S5G+KZGACvghIiJGw3N
hiUskTIRUC/n2BASSUMfDqXGrF8bDnJDXeLO0TSkczxfN18mHLyTdS6ZxtIQ
J20D0hMNh/USdBolkYZiAhO1NL+GQRK1zi4unYY6/7tzRJ4ZBu48Covp+TQU
uFNO3Pb5XVCa/rCptJ2G7lwVSburHQq3coxux3fSkPvlsDvPFEKh71xxn9dr
Gkrf3c81LxgK4eMhfrve4X44Gfr9gyHwb3BnR80HGlLQLLGQCgyBN10JTq3T
NHRlv2y4Q98dYJYeSR8RoCNJ45hXywnBsL7rAGtKiI4qjua8twwIhv5JPZef
wnSkGDIR1eUaDBtlNHX4qXT0WD80XW1fMAwxeXrXS9JRcsGy8PmFINhxqHS1
rwYdye64arbqVBDMTov5yhjTEf/Z48GbDFiQxCNyVvUgHfH66V4I3cSCvXLc
Bzea0dGQV/gLbkUWpBz+JmloQUdlNs1gzsmCA2XNpZds6Mj8pvVp89rb8OC2
N7viIh2R4t85P+69DTYKAyePh9LR++Pmn3PPBUKea1uyfhgdee2GZKZNIKyo
qhxQi6AjEQ5O36tmgfDgeLr1QjQdnTqZEZ66PRBmox2PxiTRkdDLZ1pUgUBg
8n4z6cilI4sSNeMLBQHw7sjHkJIndPS2srip6kEAqN3vbkl+SkcDYjqBGkkB
0I5KjC4W0tGrJzZvTW4HgJi3zx7+cjo6MGSaUnEyAB5Pc+vsfkVHudtMXYZE
A2Bpxy8f9VY64k4a2f6ILwDMgz6Xibbj+vZJ2gYtM2FeuWX7cBcdGfzjjQr5
ygR0KnzzjV46+ifVLZ/8ionPT2Jt6Wc6Ohx38l8/iwkqckIXUibpKNh4pITb
jwlezouPAqbpSJV1TWCPFxNkBIfXWMzS0fqIWlMuJyacM8hS/PaLjpZtmNJM
Yyb8LdGS1OAlkJ6q+vVbdCZoJs3X8/ET6E7O/r0yIkyw9fvP9ZMAgZJUBjd1
8TGh7sCBhnRhArnv7DC58o+EkGHHy2IEgVZRpyIejpFQWb9Oap5BoPbgn+6f
BkmYzfnR0C1OoHOGklu0e0mwuOovFSZNoPqwqLUS7SRICaQ0cisTKMFWU7r5
OQkH2Q5uoyoEUv5v/6oHhST4vtGQrlElUPyLpaTYPBLGUl64XV9LoOuTbjef
3Sfh8aa30t83EejT+ouBbyJI2HVCyH1Yn0AHgo5OlbuQ4KzfLVNpQKDW0qyn
HRdISFuT2HzPkEDZBtxP5s+SwDW3RtZyP4FERlfr3LQloTVw96s2cwLdOEbI
XjlEwtIFgau5hwk0qTjOkDMlYb15l2zQEQJdiKuVGz5AQrTkqasGxwgUkrHe
LGEPCTb53nLltrgekpXD1ibhboxeS7w9gaa3VTzcvI2Eam8+Dw8HAq2sfRMZ
spkEpT2xLRvOESi4/KHiVS0Sjqqf8BBxItDpo3K13OtIYIkoyX+9gOch+wce
qZMw3Vvgke1CoN8T3q2qKiTIVHnKB14mUJhO+RsuJRLM7kPr6Sv4+5fCnn6X
J6HIuU1e9hqBcrJPiwrKkPDpcHTrP08C8agL7dSWIkFM+/i1Pm8C76OzurcE
CddXfmmNuUkgn13txpsZuP/dOwSTfAn0baOUYiidBD/mHaMMfwKNC2dy/qPi
+dUP3M5mEmiuJ2bCl0JCILdmQ14ggSyemLRLipLAZ3iLq5iF81JlVNgqQkJw
YKd+eTCBMoy0oqKESQjjvVLVeJdAdS/5t50WIoGyr26xLRzXr8r784Igni+L
vutNJIHyhpfSgwVIIJodvfuiCVTEYbGzip+EeP7nz4djCXTXN6ySH1tiP/+v
T/EEithmq+bER0JysPWWr4kEcn6b6DXMS4JcS+6V70kE2jKg/eQidobgYsHv
FNxfwolaYWwl44Ozy2kE0lAwLm3gIeFhSKomTyaBFvdeDo7GVm+bvSiUhfuJ
O7nDE/vxKv1cykMCZZm21F/G1jwY9UXsEZ7P8WgNP+yCu2NrZHMJ9MukwukB
9uaOLY7KTwiUbnnBfwS7ROT2fY2nBNpowL68ET9/u9n7jxsKCOTqVr49Abs8
XE1+eyHOQ/u5d3Tcj26X9yndYgLVviren41dLdqabFBKoD/WgTFmuH/9Q9ID
+18QqGF6tEQYz6su0lnCvJxAH+0W8z5iG3ZXWVn+R6Au/jU3W/F8m6micSeq
CPT0Xp9SK56/sYX929M1uD6t0syRVSS0RxdSnV4SiE/b768QPj+zt1yHXOsJ
VHZLYd3B1SS8ph8N92gkkI5EjnYWPm+Low/brzcTSPSssQIF56MndkGIbCFQ
Ps/pz9E0EgYY94LCOgjkNraKOoDzddJqujGmi0Dv3EV80sRJGInX4UnqJhBl
9lSjtyTOq/iwf3YPgVR+2NIvy+L7RFL5es0Qga6prHnloEqCm41HWeMIgQo+
DsW+x/vxM6lxoW0U7+vDCBt7vD9/pJ2u9k0QyGb7j6HSjSSslHvq/J2Nz7Px
kPoFXZxXW44nv78RCNk7y4fp4bymm08tf8ffNz6v1WxAgpDCj7NCC3g/juem
38L7Tihp2ylzMNBRJ43T88dIQAkBv/g4GejeD8E9QSdIOC/8OnR6JQMNWl9n
atmRULHgVFbIy0A+7TTNknMk2LclUfVFGEi30yn/sSe+P/W/PFIWZaD5pIOc
/ddJKC7dgvipDBTNSn8v5YfryWi/2EkwUODSatX+IBLyPDgaTsowUKiH/4x+
Egnvp4xt9OUY6Nia4OVV6SSssEuYU1ZgIBOu+trpLHweBzbKflVmoLcm1Z7j
T/E8ZB08fdYx0IMlsKyrw3loblSP38VAB6+U9uvMkeCqS6vx0WWg0Rq0ee8C
CQmFtpanEAMlRqx+6rCE75/k36SKAQP5q+hrDAgwIdJN40PRAQYSJkUVKpWY
MCgZFtZlzUDpYdbkERsm8EX0KxfbMJB4c8Hs/dNM2MCjWhF/koGmi0IE+S8w
gTlb/fmUPQM1/jF2FfFmgnr9nN7MeQbijDjETyQw4Zrz0R8CXgxU3aZzkdrP
hFnddTIMHwZS1FeIujjGBCcRrn2KNxjo6r0LzYP4fXkyv+DeTj8GOunwKll4
RQAYzgntvhjEQBppQn7JqgFAeLyMaEtgoDZ0mhlwPQDCDRPLe+8xEDux/4kH
fn8LMC6PjyczUOrn2g9+kfh9XSqjvZTOQM1NSVGfsgNg/LfXsGYOA63Wz9g4
9S4Aim6s1wovY6ChgyOhs9sC8f7zHkuqYCDD+zE7gw0CIVtm0D+7koF2fmcI
gnkgJFXdeVddy0BxPw8c/+MUCOSKiRvfXjHQnvH8vhepgXAoILn1UD8DhZz/
kHRJ+DZ8CxFwov9joOfqhi+0V7BAiqlHU8aeOre5qwh7r49n5WZsn9opthb+
v5R8/hPFAjvrfImeykoWGBnWlkdiH5qv2krlZkH6steq1Ys4D76NjjN8LDB3
+5IvsMRAZ67VDT1azYLr5+WOS2DLPlfqUhZlwUNbS251bM81h5vTsRcP1h8z
wp7YLNmeQGHBI410Tha2wy0btWAaC1aMW1lwLzPQ5puNKhfFWLB2IGyJhm35
UjrgM7Zld0O2Ejb50mDSQZwFT2o2L+7GNornbj4hwYJjKasf+GPLClq+N5Vi
ATNmr1kktkratkut2E9Dbv5Jxya2TfIZSbOA22f6YM3/nyfcYKEvw4L1boq/
O7G3pLG5qrCPn7fOHMau7pkq3ynLwvseYTKLXfShzOs5doFl069l7KU+G90t
ciz4Hy5hBqo=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  PlotRange->{{0, 6}, {0., 0.9960966996026446}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.504364595896592*^9, 3.5043646508211946`*^9, {3.504364948780897*^9, 
   3.504364956411209*^9}, 3.504365456948901*^9, 3.5043655350446777`*^9, 
   3.504365710848651*^9, 3.50436595769276*^9, 3.504366022669561*^9, 
   3.50436609239478*^9, 3.504366283532942*^9, 3.504366423843616*^9, 
   3.5043665712020407`*^9, {3.5043667970168333`*^9, 3.504366810226592*^9}, 
   3.5043693121752243`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kinePlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"kineEnergy", "[", "All", "]"}], "/.", "sol"}], ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", " ", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"springPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"springEnergy", "[", "T", "]"}], "/.", "sol"}], ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", " ", "0", ",", "1"}], "]"}], ",", "Dashed"}], 
       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kineEnergy", "[", "T", "]"}], "+", 
        RowBox[{"springEnergy", "[", "T", "]"}]}], ")"}], "/.", "sol"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", " ", "0", ",", "0"}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"springPlot", ",", "kinePlot", ",", "totPlot", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.467380128503154*^9, 3.46738021298289*^9}, {
   3.467380314590437*^9, 3.467380315308406*^9}, {3.467382364402763*^9, 
   3.4673824122193317`*^9}, {3.4673892904219227`*^9, 3.467389291363956*^9}, {
   3.467389520441621*^9, 3.467389522391685*^9}, 3.467391850275475*^9, {
   3.4673918920218353`*^9, 3.4673919436225557`*^9}, {3.467391995851313*^9, 
   3.467391996329238*^9}, {3.467392949709693*^9, 3.467392962532427*^9}, {
   3.4673971201526527`*^9, 3.467397141279652*^9}, {3.46739960082768*^9, 
   3.467399732105854*^9}, {3.467399779022285*^9, 3.467399798829466*^9}, {
   3.467399829904965*^9, 3.467399856984413*^9}, {3.467399895044532*^9, 
   3.467400014498322*^9}, {3.4674001914526463`*^9, 3.4674002059795113`*^9}, {
   3.467401679815247*^9, 3.4674017713334627`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   GraphicsComplexBox[{{1.2244897959183673`*^-7, 0.}, {0.11777196720918238`, 
    0.}, {0.2454501425127519, 0.}, {0.3646673014209126, 0.}, {
    0.4815458929132563, 0.}, {0.6083308149489667, 0.}, {0.7266547205892683, 
    0.}, {0.8548849567729366, 0.}, {0.980776625540788, 0.}, {
    1.0982072779132306`, 0.}, {1.2255442608290397`, 0.}, {1.3444202273494401`,
     0.}, {1.4609576264540236`, 0.}, {1.5874013561019737`, 0.}, {
    1.705384069354515, 0.}, {1.833273113150423, 0.}, {1.958823589530514, 
    0.}, {2.0759130495151963`, 0.}, {2.2029088400432455`, 0.}, {
    2.3214436141758856`, 0.}, {2.4498847188518926`, 0.}, {2.5759872561120827`,
     0.}, {2.693628776976864, 0.}, {2.821176628385012, 0.}, {
    2.940263463397751, 0.}, {3.0570117309946734`, 0.}, {3.183666329134962, 
    0.}, {3.301859910879842, 0.}, {3.429959823168089, 0.}, {3.555721168040519,
     0.}, {3.67302149651754, 0.}, {3.8002281555379276`, 0.}, {
    3.9189737981629067`, 0.}, {4.035380873372068, 0.}, {4.161694279124596, 
    0.}, {4.279546668481715, 0.}, {4.407305388382201, 0.}, {4.526603091887278,
     0.}, {4.643562227976538, 0.}, {4.7704276946091655`, 0.}, {
    4.888832144846384, 0.}, {5.017142925626969, 0.}, {5.143115138991736, 
    0.}, {5.260626335961096, 0.}, {5.388043863473822, 0.}, {5.507000374591139,
     0.}, {5.623618318292639, 0.}, {5.750142592537506, 0.}, {
    5.868205850386963, 0.}, {5.996175438779788, 0.}, {5.99999987755102, 
    0.}}, {}], 
   GraphicsComplexBox[{{1.2244897959183673`*^-7, 0.}, {0.11777196720918238`, 
    0.}, {0.2454501425127519, 0.}, {0.3646673014209126, 0.}, {
    0.4815458929132563, 0.}, {0.6083308149489667, 0.}, {0.7266547205892683, 
    0.}, {0.8548849567729366, 0.}, {0.980776625540788, 0.}, {
    1.0982072779132306`, 0.}, {1.2255442608290397`, 0.}, {1.3444202273494401`,
     0.}, {1.4609576264540236`, 0.}, {1.5874013561019737`, 0.}, {
    1.705384069354515, 0.}, {1.833273113150423, 0.}, {1.958823589530514, 
    0.}, {2.0759130495151963`, 0.}, {2.2029088400432455`, 0.}, {
    2.3214436141758856`, 0.}, {2.4498847188518926`, 0.}, {2.5759872561120827`,
     0.}, {2.693628776976864, 0.}, {2.821176628385012, 0.}, {
    2.940263463397751, 0.}, {3.0570117309946734`, 0.}, {3.183666329134962, 
    0.}, {3.301859910879842, 0.}, {3.429959823168089, 0.}, {3.555721168040519,
     0.}, {3.67302149651754, 0.}, {3.8002281555379276`, 0.}, {
    3.9189737981629067`, 0.}, {4.035380873372068, 0.}, {4.161694279124596, 
    0.}, {4.279546668481715, 0.}, {4.407305388382201, 0.}, {4.526603091887278,
     0.}, {4.643562227976538, 0.}, {4.7704276946091655`, 0.}, {
    4.888832144846384, 0.}, {5.017142925626969, 0.}, {5.143115138991736, 
    0.}, {5.260626335961096, 0.}, {5.388043863473822, 0.}, {5.507000374591139,
     0.}, {5.623618318292639, 0.}, {5.750142592537506, 0.}, {
    5.868205850386963, 0.}, {5.996175438779788, 0.}, {5.99999987755102, 
    0.}}, {}], 
   GraphicsComplexBox[{{1.2244897959183673`*^-7, 0.}, {0.11777196720918238`, 
    0.}, {0.2454501425127519, 0.}, {0.3646673014209126, 0.}, {
    0.4815458929132563, 0.}, {0.6083308149489667, 0.}, {0.7266547205892683, 
    0.}, {0.8548849567729366, 0.}, {0.980776625540788, 0.}, {
    1.0982072779132306`, 0.}, {1.2255442608290397`, 0.}, {1.3444202273494401`,
     0.}, {1.4609576264540236`, 0.}, {1.5874013561019737`, 0.}, {
    1.705384069354515, 0.}, {1.833273113150423, 0.}, {1.958823589530514, 
    0.}, {2.0759130495151963`, 0.}, {2.2029088400432455`, 0.}, {
    2.3214436141758856`, 0.}, {2.4498847188518926`, 0.}, {2.5759872561120827`,
     0.}, {2.693628776976864, 0.}, {2.821176628385012, 0.}, {
    2.940263463397751, 0.}, {3.0570117309946734`, 0.}, {3.183666329134962, 
    0.}, {3.301859910879842, 0.}, {3.429959823168089, 0.}, {3.555721168040519,
     0.}, {3.67302149651754, 0.}, {3.8002281555379276`, 0.}, {
    3.9189737981629067`, 0.}, {4.035380873372068, 0.}, {4.161694279124596, 
    0.}, {4.279546668481715, 0.}, {4.407305388382201, 0.}, {4.526603091887278,
     0.}, {4.643562227976538, 0.}, {4.7704276946091655`, 0.}, {
    4.888832144846384, 0.}, {5.017142925626969, 0.}, {5.143115138991736, 
    0.}, {5.260626335961096, 0.}, {5.388043863473822, 0.}, {5.507000374591139,
     0.}, {5.623618318292639, 0.}, {5.750142592537506, 0.}, {
    5.868205850386963, 0.}, {5.996175438779788, 0.}, {5.99999987755102, 
    0.}}, {}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  PlotRange->{{0, 6}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467400208021324*^9, 3.467400228818729*^9}, 
   3.4674017437049007`*^9, 3.467401774511723*^9, 3.467401969988253*^9, 
   3.467402218075515*^9, 3.46740227091306*^9, 3.467403313390634*^9, 
   3.467458608259968*^9, 3.4674588583301897`*^9, 3.467460881519546*^9, {
   3.4674609357458572`*^9, 3.4674609516346893`*^9}, 3.4674610174679527`*^9, 
   3.467461161942976*^9, {3.467461247003385*^9, 3.4674612937483683`*^9}, 
   3.467461470462182*^9, 3.4674622912643347`*^9, 3.4674623338910637`*^9, 
   3.467462396592043*^9, 3.467464344415601*^9, 3.467467139074297*^9, 
   3.467478607019105*^9, 3.467479592455966*^9, 3.467480321814727*^9, 
   3.467480451326605*^9, 3.46748079819102*^9, 3.467480830254726*^9, 
   3.467482815293605*^9, 3.467483058085022*^9, 3.467483492571372*^9, 
   3.467483527723151*^9, 3.467483571664217*^9, 3.467483690451747*^9, {
   3.467579273205955*^9, 3.467579325753793*^9}, 3.467579493163269*^9, 
   3.467580674137946*^9, 3.467581508829062*^9, 3.4675815472838697`*^9, 
   3.467582746271132*^9, 3.467583056578184*^9, 3.467583091504326*^9, 
   3.467583479634719*^9, 3.4675840845773277`*^9, 3.467584149931426*^9, 
   3.467584252928011*^9, 3.467584322862275*^9, 3.467584477299089*^9, {
   3.467584613363449*^9, 3.467584640907756*^9}, {3.4675846792042027`*^9, 
   3.46758470049223*^9}, 3.467584732278488*^9, 3.4675848093868713`*^9, 
   3.4676322332448378`*^9, 3.467632369290504*^9, {3.467632434318931*^9, 
   3.467632477123023*^9}, 3.467632534255103*^9, 3.467652530000947*^9, 
   3.468590123244998*^9, 3.468593542358981*^9, 3.468593955559475*^9, 
   3.468594455144964*^9, {3.4685945160466423`*^9, 3.4685945411173573`*^9}, 
   3.468594671825674*^9, 3.468594720878498*^9, 3.4686737393299313`*^9, 
   3.468673804053258*^9, 3.468673839654786*^9, 3.468673957644053*^9, 
   3.46867531667446*^9, 3.468678416131969*^9, 3.46867853835861*^9, {
   3.468678767745474*^9, 3.468678783394278*^9}, 3.469193248315826*^9, 
   3.4691934129917927`*^9, 3.469193722408885*^9, 3.469193764949524*^9, 
   3.469193825421337*^9, 3.4691959818874817`*^9, 3.4694799823970118`*^9, 
   3.500842628534729*^9, 3.500843039294236*^9, 3.500843278001505*^9, 
   3.500845811990077*^9, 3.50084610399858*^9, 3.500847192115193*^9, 
   3.500847331569694*^9, 3.500847743426403*^9, 3.5008481501881847`*^9, 
   3.500898467499042*^9, 3.500898579537694*^9, 3.5009005695302134`*^9, 
   3.504361818334053*^9, 3.5043629237344017`*^9, 3.5043630239163237`*^9, 
   3.5043644196901083`*^9, 3.504364650964673*^9, 3.504364956554069*^9, 
   3.504365457020281*^9, 3.504365535101062*^9, 3.5043657108938913`*^9, 
   3.504365957760936*^9, 3.504366022752975*^9, 3.504366092480255*^9, 
   3.504366283615848*^9, 3.504366423904888*^9, 3.504366571287779*^9, {
   3.504366797128729*^9, 3.504366810300029*^9}, 3.504369312271598*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Export data", "Subsection",
 CellChangeTimes->{{3.434122912094719*^9, 3.434122914413233*^9}, {
  3.4343018107259912`*^9, 3.4343018122138433`*^9}, {3.466853126250345*^9, 
  3.466853131141144*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "carpus"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"carp1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</carpusP1.mat\>\""}], "]"}], ",", 
      "carp1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842628870408*^9, 3.500843039489355*^9, 
  3.500843278169656*^9, 3.500845812220503*^9, 3.500846104178731*^9, 
  3.500847192241651*^9, 3.50084733175896*^9, 3.500847743599511*^9, 
  3.5008481503615932`*^9, 3.500898467618753*^9, 3.500898579761351*^9, 
  3.500900569798964*^9, 3.504361818571377*^9, 3.5043629239348717`*^9, 
  3.5043654572033443`*^9, 3.504365535313643*^9, 3.504365711040167*^9, 
  3.504365957898355*^9, 3.504366022910236*^9, 3.504366283981923*^9, 
  3.504366424092658*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P2", " ", "on", " ", "carpus"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"carp2Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</carpusP2.mat\>\""}], "]"}], ",", 
      "carp2Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966543436351*^9, 3.466966568564617*^9}, {3.466966636753187*^9, 
   3.466966639296421*^9}, {3.466966682819511*^9, 3.466966689882691*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629151061*^9, 3.5008430397637463`*^9, 
  3.500843278311226*^9, 3.500845812443918*^9, 3.500846104352395*^9, 
  3.500847192375731*^9, 3.500847332035491*^9, 3.500847743776025*^9, 
  3.500848150530982*^9, 3.5008984686719217`*^9, 3.500898579958477*^9, 
  3.50090057004583*^9, 3.504361818716709*^9, 3.504362924103038*^9, 
  3.50436545734445*^9, 3.5043655354790792`*^9, 3.504365711294207*^9, 
  3.504365958121998*^9, 3.5043660231528387`*^9, 3.504366284185233*^9, 
  3.504366424265606*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "ground"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gnd1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</groundP1.mat\>\""}], "]"}], ",", 
      "gnd1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966543436351*^9, 3.466966624418126*^9}, {3.4669666559854813`*^9, 
   3.466966697243207*^9}, {3.466967039391535*^9, 3.466967045957535*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5008426291839123`*^9, 3.5008430398029346`*^9, 
  3.5008432783468103`*^9, 3.500845812568206*^9, 3.500846104685873*^9, 
  3.500847192702085*^9, 3.5008473320458107`*^9, 3.500847743834366*^9, 
  3.5008481506950417`*^9, 3.5008984691081543`*^9, 3.500898580138774*^9, 
  3.500900570154521*^9, 3.504361818760105*^9, 3.50436292424996*^9, 
  3.504365457394575*^9, 3.504365535743148*^9, 3.5043657113439074`*^9, 
  3.504365958256476*^9, 3.5043660232880697`*^9, 3.504366284290113*^9, 
  3.504366424302696*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "mV"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mV1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</mVP1.mat\>\""}], "]"}], ",", 
      "mV1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.46696671804352*^9, 3.466966777316327*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629343895*^9, 3.500843039949977*^9, 
  3.500843278465722*^9, 3.500845812753422*^9, 3.5008461049037867`*^9, 
  3.5008471927614393`*^9, 3.500847332215064*^9, 3.500847743988249*^9, 
  3.500848150888111*^9, 3.500898469206131*^9, 3.5008985803293037`*^9, 
  3.5009005702742367`*^9, 3.5043618188774548`*^9, 3.50436292436937*^9, 
  3.504365457515059*^9, 3.5043655359131002`*^9, 3.5043657114690313`*^9, 
  3.504365958396524*^9, 3.504366023444969*^9, 3.5043662844134607`*^9, 
  3.5043664244955463`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "dactyl"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dac1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</dactylP1.mat\>\""}], "]"}], ",", 
      "dac1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.466966783385257*^9, 3.4669668323144417`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mech", "::", "\<\"nopoint\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Point number \\!\\(1\\) on body number \\!\\(4\\) is not \
present in the\\ncurrent system.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629518717*^9, 3.500843040135149*^9, 
  3.500843278679698*^9, 3.50084581297112*^9, 3.500846105160405*^9, 
  3.5008471928253*^9, 3.500847332391121*^9, 3.5008477441692123`*^9, 
  3.500848151120223*^9, 3.5008984698100367`*^9, 3.5008985805396557`*^9, 
  3.5009005705203247`*^9, 3.504361819020297*^9, 3.504362924407055*^9, 
  3.5043654575605593`*^9, 3.504365536031591*^9, 3.504365711511897*^9, 
  3.5043659584585667`*^9, 3.504366023863456*^9, 3.504366284448703*^9, 
  3.504366424593552*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mech", "::", "\<\"nopoint\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Point number \\!\\(1\\) on body number \\!\\(4\\) is not \
present in the\\ncurrent system.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629518717*^9, 3.500843040135149*^9, 
  3.500843278679698*^9, 3.50084581297112*^9, 3.500846105160405*^9, 
  3.5008471928253*^9, 3.500847332391121*^9, 3.5008477441692123`*^9, 
  3.500848151120223*^9, 3.5008984698100367`*^9, 3.5008985805396557`*^9, 
  3.5009005705203247`*^9, 3.504361819020297*^9, 3.504362924407055*^9, 
  3.5043654575605593`*^9, 3.504365536031591*^9, 3.504365711511897*^9, 
  3.5043659584585667`*^9, 3.504366023863456*^9, 3.504366284448703*^9, 
  3.504366424594995*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mech", "::", "\<\"nopoint\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Point number \\!\\(1\\) on body number \\!\\(4\\) is not \
present in the\\ncurrent system.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629518717*^9, 3.500843040135149*^9, 
  3.500843278679698*^9, 3.50084581297112*^9, 3.500846105160405*^9, 
  3.5008471928253*^9, 3.500847332391121*^9, 3.5008477441692123`*^9, 
  3.500848151120223*^9, 3.5008984698100367`*^9, 3.5008985805396557`*^9, 
  3.5009005705203247`*^9, 3.504361819020297*^9, 3.504362924407055*^9, 
  3.5043654575605593`*^9, 3.504365536031591*^9, 3.504365711511897*^9, 
  3.5043659584585667`*^9, 3.504366023863456*^9, 3.504366284448703*^9, 
  3.5043664245960073`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\(Mech :: \\\"nopoint\\\"\\) will be \
suppressed during this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\
\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629518717*^9, 3.500843040135149*^9, 
  3.500843278679698*^9, 3.50084581297112*^9, 3.500846105160405*^9, 
  3.5008471928253*^9, 3.500847332391121*^9, 3.5008477441692123`*^9, 
  3.500848151120223*^9, 3.5008984698100367`*^9, 3.5008985805396557`*^9, 
  3.5009005705203247`*^9, 3.504361819020297*^9, 3.504362924407055*^9, 
  3.5043654575605593`*^9, 3.504365536031591*^9, 3.504365711511897*^9, 
  3.5043659584585667`*^9, 3.504366023863456*^9, 3.504366284448703*^9, 
  3.50436642459702*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629518717*^9, 3.500843040135149*^9, 
  3.500843278679698*^9, 3.50084581297112*^9, 3.500846105160405*^9, 
  3.5008471928253*^9, 3.500847332391121*^9, 3.5008477441692123`*^9, 
  3.500848151120223*^9, 3.5008984698100367`*^9, 3.5008985805396557`*^9, 
  3.5009005705203247`*^9, 3.504361819020297*^9, 3.504362924407055*^9, 
  3.5043654575605593`*^9, 3.504365536031591*^9, 3.504365711511897*^9, 
  3.5043659584585667`*^9, 3.504366023863456*^9, 3.504366284448703*^9, 
  3.50436642459838*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Moment", " ", "from", " ", "spring"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"springM", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"springMoment", "\[IndentingNewLine]", "/.", "sol"}], "/.", 
          
          RowBox[{"{", 
           RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sM"}], 
       "/", 
       RowBox[{"sL", "^", "2"}]}], "*", 
      RowBox[{"sT", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</springMoment.mat\>\""}], "]"}], 
      ",", "springM", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.467035677730645*^9, 3.467035721146905*^9}, 
   3.4670486694448957`*^9, {3.467051306809559*^9, 3.467051394920734*^9}, {
   3.4670515167270947`*^9, 3.467051528688052*^9}, {3.467467423413453*^9, 
   3.467467506005204*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629551116*^9, 3.5008430401696997`*^9, 
  3.500843278712899*^9, 3.500845813004471*^9, 3.500846105246347*^9, 
  3.500847192892436*^9, 3.50084733240164*^9, 3.500847744352498*^9, 
  3.5008481511632*^9, 3.5008984703652267`*^9, 3.500898580566956*^9, 
  3.500900570629552*^9, 3.504361819124743*^9, 3.504362924468338*^9, 
  3.504365457610942*^9, 3.504365536129465*^9, 3.504365711599433*^9, 
  3.504365958499113*^9, 3.504366023994619*^9, 3.5043662845511303`*^9, 
  3.504366424693087*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Moment", " ", "from", " ", "drag"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dragM", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"dragMoment", "\[IndentingNewLine]", "/.", "sol"}], "/.", 
          RowBox[{"{", 
           RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], " ", "/", 
        "sM"}], "/", 
       RowBox[{"sL", "^", "2"}]}], "*", 
      RowBox[{"sT", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</dragMoment.mat\>\""}], "]"}], ",", 
      "dragM", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.467035677730645*^9, 3.467035764556779*^9}, {
   3.4670514147874107`*^9, 3.4670514364271917`*^9}, 3.46705150142057*^9, {
   3.467051535425043*^9, 3.467051552377322*^9}, {3.467467460931978*^9, 
   3.467467509773467*^9}, {3.467467550753574*^9, 3.467467553215448*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629583117*^9, 3.5008430402030582`*^9, 
  3.500843278747555*^9, 3.500845813059971*^9, 3.500846105329084*^9, 
  3.50084719302454*^9, 3.500847332455196*^9, 3.500847744397814*^9, 
  3.500848151225136*^9, 3.5008984704329853`*^9, 3.500898580617332*^9, 
  3.500900570676324*^9, 3.5043618191943197`*^9, 3.504362924523293*^9, 
  3.504365457659491*^9, 3.504365536185306*^9, 3.504365711726186*^9, 
  3.5043659586235437`*^9, 3.504366024113963*^9, 3.504366284708996*^9, 
  3.504366424835417*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"mV", " ", "angle"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</mvAng.mat\>\""}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Angle", "[", 
        RowBox[{"mV", ",", "1"}], "]"}], "/.", "sol"}], "/.", 
      RowBox[{"{", 
       RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ",", "\"\<MAT\>\""}], 
    "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.4686786050973787`*^9, 3.468678709448306*^9}, {
   3.468678822886895*^9, 3.468678879878577*^9}, {3.468678930430963*^9, 
   3.4686789462928762`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.500842629635788*^9, 3.500843040250642*^9, 
  3.500843278800582*^9, 3.500845813109047*^9, 3.5008461053787823`*^9, 
  3.500847193232459*^9, 3.5008473325221643`*^9, 3.5008477444494543`*^9, 
  3.5008481513491907`*^9, 3.500898470486342*^9, 3.500898580681625*^9, 
  3.500900570784944*^9, 3.5043618192452583`*^9, 3.504362924599924*^9, 
  3.504365457711048*^9, 3.504365536280222*^9, 3.504365711806291*^9, 
  3.504365958772234*^9, 3.5043660242445793`*^9, 3.5043662849097*^9, 
  3.504366424908763*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"dactyl", " ", "angle"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</dacAng.mat\>\""}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Angle", "[", 
        RowBox[{"mV", ",", "1"}], "]"}], "/.", "sol"}], "/.", 
      RowBox[{"{", 
       RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ",", "\"\<MAT\>\""}], 
    "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.4686786050973787`*^9, 3.468678709448306*^9}, {
   3.468678746164011*^9, 3.468678773619689*^9}, {3.4686788202242002`*^9, 
   3.468678820646262*^9}, {3.468678856576383*^9, 3.468678858816276*^9}, {
   3.468678951709503*^9, 3.4686789572941113`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "::", "\<\"nodir\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Directory \
\\!\\(\\\"/Volumes/Docs/Projects/Patek_project/sims/\\\"\\) does not exist.\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5008426296678867`*^9, 3.500843040301675*^9, 
  3.500843278850737*^9, 3.500845813159644*^9, 3.500846105698244*^9, 
  3.5008471933658752`*^9, 3.5008473325582542`*^9, 3.5008477445203543`*^9, 
  3.500848151487411*^9, 3.500898470575036*^9, 3.500898580733859*^9, 
  3.500900570925453*^9, 3.504361819291567*^9, 3.50436292465093*^9, 
  3.504365457759199*^9, 3.5043655363845367`*^9, 3.5043657118738937`*^9, 
  3.504365958938466*^9, 3.504366024294003*^9, 3.5043662850016747`*^9, 
  3.504366425011627*^9}]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{894, 1898},
WindowMargins->{{Automatic, -971}, {-147, Automatic}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 644, 9, 83, "Section"],
Cell[CellGroupData[{
Cell[1259, 36, 152, 5, 33, "Input"],
Cell[1414, 43, 442, 9, 26, "Message"],
Cell[1859, 54, 129, 1, 32, "Text"],
Cell[1991, 57, 800, 21, 94, "Input"],
Cell[CellGroupData[{
Cell[2816, 82, 245, 5, 33, "Input"],
Cell[3064, 89, 141, 2, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3242, 96, 216, 5, 33, "Input"],
Cell[3461, 103, 566, 17, 86, "Output"]
}, Open  ]],
Cell[4042, 123, 152, 5, 33, "Input"],
Cell[4197, 130, 121, 1, 32, "Text"],
Cell[4321, 133, 541, 12, 47, "Input"],
Cell[4865, 147, 616, 14, 58, "Input"],
Cell[5484, 163, 160, 3, 32, "Text"],
Cell[5647, 168, 394, 8, 33, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6078, 181, 172, 3, 33, "Input"],
Cell[6253, 186, 753, 21, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7043, 212, 188, 4, 33, "Input"],
Cell[7234, 218, 566, 17, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7837, 240, 1645, 43, 72, "Input"],
Cell[9485, 285, 11046, 189, 309, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20568, 479, 1515, 42, 72, "Input"],
Cell[22086, 523, 22259, 373, 292, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[44394, 902, 593, 8, 45, "Section"],
Cell[CellGroupData[{
Cell[45012, 914, 898, 22, 53, "Input"],
Cell[45913, 938, 688, 13, 26, "Message"]
}, Open  ]],
Cell[46616, 954, 616, 14, 33, "Input"],
Cell[CellGroupData[{
Cell[47257, 972, 1342, 34, 42, "Input"],
Cell[48602, 1008, 393, 10, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49032, 1023, 145, 3, 33, "Input"],
Cell[49180, 1028, 552, 15, 74, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49769, 1048, 237, 5, 33, "Input"],
Cell[50009, 1055, 456, 14, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50502, 1074, 210, 5, 33, "Input"],
Cell[50715, 1081, 484, 14, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51236, 1100, 167, 5, 33, "Input"],
Cell[51406, 1107, 247, 4, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51690, 1116, 379, 11, 68, "Input"],
Cell[52072, 1129, 186, 3, 33, "Output"]
}, Open  ]],
Cell[52273, 1135, 492, 10, 33, "Input"],
Cell[CellGroupData[{
Cell[52790, 1149, 488, 11, 33, "Input"],
Cell[53281, 1162, 5931, 103, 281, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[59261, 1271, 647, 9, 45, "Section"],
Cell[CellGroupData[{
Cell[59933, 1284, 898, 22, 53, "Input"],
Cell[60834, 1308, 758, 14, 26, "Message"]
}, Open  ]],
Cell[61607, 1325, 705, 15, 33, "Input"],
Cell[CellGroupData[{
Cell[62337, 1344, 1709, 41, 42, "Input"],
Cell[64049, 1387, 510, 10, 47, "Message"],
Cell[64562, 1399, 402, 8, 26, "Message"],
Cell[64967, 1409, 552, 10, 26, "Message"],
Cell[65522, 1421, 432, 9, 26, "Message"],
Cell[65957, 1432, 432, 9, 26, "Message"],
Cell[66392, 1443, 432, 9, 26, "Message"],
Cell[66827, 1454, 465, 9, 26, "Message"],
Cell[67295, 1465, 432, 9, 26, "Message"],
Cell[67730, 1476, 432, 9, 26, "Message"],
Cell[68165, 1487, 432, 9, 26, "Message"],
Cell[68600, 1498, 465, 9, 26, "Message"],
Cell[69068, 1509, 552, 10, 26, "Message"],
Cell[69623, 1521, 552, 10, 26, "Message"],
Cell[70178, 1533, 552, 10, 26, "Message"],
Cell[70733, 1545, 458, 9, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71228, 1559, 492, 11, 33, "Input"],
Cell[71723, 1572, 8867, 149, 284, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[80639, 1727, 795, 10, 45, "Section"],
Cell[CellGroupData[{
Cell[81459, 1741, 898, 22, 53, "Input"],
Cell[82360, 1765, 1072, 18, 26, "Message"]
}, Open  ]],
Cell[83447, 1786, 1600, 29, 72, "Input"],
Cell[85050, 1817, 2364, 51, 66, "Input"],
Cell[87417, 1870, 1018, 30, 42, "Input"],
Cell[CellGroupData[{
Cell[88460, 1904, 607, 14, 33, "Input"],
Cell[89070, 1920, 14185, 239, 291, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103292, 2164, 631, 15, 33, "Input"],
Cell[103926, 2181, 21734, 362, 284, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125697, 2548, 497, 12, 33, "Input"],
Cell[126197, 2562, 2462, 46, 284, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[128708, 2614, 846, 11, 45, "Section"],
Cell[CellGroupData[{
Cell[129579, 2629, 898, 22, 53, "Input"],
Cell[130480, 2653, 1370, 22, 26, "Message"]
}, Open  ]],
Cell[131865, 2678, 1771, 31, 72, "Input"],
Cell[133639, 2711, 2464, 53, 66, "Input"],
Cell[136106, 2766, 1394, 37, 42, "Input"],
Cell[137503, 2805, 428, 12, 33, "Input"],
Cell[CellGroupData[{
Cell[137956, 2821, 607, 14, 33, "Input"],
Cell[138566, 2837, 14749, 247, 291, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153352, 3089, 631, 15, 33, "Input"],
Cell[153986, 3106, 14870, 244, 284, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168893, 3355, 237, 5, 33, "Input"],
Cell[169133, 3362, 459, 15, 74, "Output"],
Cell[CellGroupData[{
Cell[169617, 3381, 397, 11, 33, "Input"],
Cell[170017, 3394, 275, 6, 33, "Output"]
}, Open  ]],
Cell[170307, 3403, 335, 8, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170679, 3416, 587, 12, 33, "Input"],
Cell[171269, 3430, 8687, 144, 284, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179993, 3579, 543, 12, 33, "Input"],
Cell[180539, 3593, 2601, 48, 301, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[183189, 3647, 756, 10, 45, "Section"],
Cell[CellGroupData[{
Cell[183970, 3661, 898, 22, 53, "Input"],
Cell[184871, 3685, 1371, 22, 26, "Message"]
}, Open  ]],
Cell[186257, 3710, 1145, 25, 72, "Input"],
Cell[187405, 3737, 808, 22, 87, "Input"],
Cell[188216, 3761, 924, 17, 33, "Input"],
Cell[189143, 3780, 691, 18, 53, "Input"],
Cell[189837, 3800, 4411, 96, 191, "Input"],
Cell[CellGroupData[{
Cell[194273, 3900, 293, 7, 33, "Input"],
Cell[194569, 3909, 194, 3, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194800, 3917, 584, 14, 33, "Input"],
Cell[195387, 3933, 2614, 49, 290, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[198050, 3988, 862, 12, 45, "Section"],
Cell[CellGroupData[{
Cell[198937, 4004, 898, 22, 53, "Input"],
Cell[199838, 4028, 1583, 25, 26, "Message"]
}, Open  ]],
Cell[201436, 4056, 1841, 33, 72, "Input"],
Cell[CellGroupData[{
Cell[203302, 4093, 1862, 41, 42, "Input"],
Cell[205167, 4136, 558, 14, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205762, 4155, 79, 2, 33, "Input"],
Cell[205844, 4159, 581, 18, 76, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206462, 4182, 266, 7, 33, "Input"],
Cell[206731, 4191, 590, 17, 76, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[207370, 4214, 985, 13, 45, "Section"],
Cell[CellGroupData[{
Cell[208380, 4231, 898, 22, 53, "Input"],
Cell[209281, 4255, 1632, 26, 26, "Message"]
}, Open  ]],
Cell[210928, 4284, 1841, 33, 72, "Input"],
Cell[CellGroupData[{
Cell[212794, 4321, 2118, 47, 42, "Input"],
Cell[214915, 4370, 1114, 18, 57, "Message"],
Cell[216032, 4390, 454, 9, 26, "Message"],
Cell[216489, 4401, 454, 9, 26, "Message"],
Cell[216946, 4412, 456, 9, 26, "Message"],
Cell[217405, 4423, 489, 9, 26, "Message"],
Cell[217897, 4434, 454, 9, 26, "Message"],
Cell[218354, 4445, 454, 9, 26, "Message"],
Cell[218811, 4456, 454, 9, 26, "Message"],
Cell[219268, 4467, 487, 9, 26, "Message"],
Cell[219758, 4478, 454, 9, 26, "Message"],
Cell[220215, 4489, 456, 9, 26, "Message"],
Cell[220674, 4500, 454, 9, 26, "Message"],
Cell[221131, 4511, 487, 9, 26, "Message"],
Cell[221621, 4522, 456, 9, 26, "Message"],
Cell[222080, 4533, 454, 9, 26, "Message"],
Cell[222537, 4544, 456, 9, 26, "Message"],
Cell[222996, 4555, 486, 9, 26, "Message"],
Cell[223485, 4566, 454, 9, 26, "Message"],
Cell[223942, 4577, 454, 9, 26, "Message"],
Cell[224399, 4588, 456, 9, 26, "Message"],
Cell[224858, 4599, 487, 9, 26, "Message"],
Cell[225348, 4610, 1619, 25, 87, "Message"],
Cell[226970, 4637, 454, 9, 26, "Message"],
Cell[227427, 4648, 456, 9, 26, "Message"],
Cell[227886, 4659, 456, 9, 26, "Message"],
Cell[228345, 4670, 489, 9, 26, "Message"],
Cell[228837, 4681, 454, 9, 26, "Message"],
Cell[229294, 4692, 454, 9, 26, "Message"],
Cell[229751, 4703, 456, 9, 26, "Message"],
Cell[230210, 4714, 487, 9, 26, "Message"],
Cell[230700, 4725, 454, 9, 26, "Message"],
Cell[231157, 4736, 454, 9, 26, "Message"],
Cell[231614, 4747, 454, 9, 26, "Message"],
Cell[232071, 4758, 487, 9, 26, "Message"],
Cell[232561, 4769, 454, 9, 26, "Message"],
Cell[233018, 4780, 454, 9, 26, "Message"],
Cell[233475, 4791, 454, 9, 26, "Message"],
Cell[233932, 4802, 487, 9, 26, "Message"],
Cell[234422, 4813, 1619, 25, 87, "Message"],
Cell[236044, 4840, 454, 9, 26, "Message"],
Cell[236501, 4851, 454, 9, 26, "Message"],
Cell[236958, 4862, 454, 9, 26, "Message"],
Cell[237415, 4873, 489, 9, 26, "Message"],
Cell[237907, 4884, 454, 9, 26, "Message"],
Cell[238364, 4895, 454, 9, 26, "Message"],
Cell[238821, 4906, 456, 9, 26, "Message"],
Cell[239280, 4917, 487, 9, 26, "Message"],
Cell[239770, 4928, 454, 9, 26, "Message"],
Cell[240227, 4939, 454, 9, 26, "Message"],
Cell[240684, 4950, 454, 9, 26, "Message"],
Cell[241141, 4961, 487, 9, 26, "Message"],
Cell[241631, 4972, 456, 9, 26, "Message"],
Cell[242090, 4983, 454, 9, 26, "Message"],
Cell[242547, 4994, 456, 9, 26, "Message"],
Cell[243006, 5005, 487, 9, 26, "Message"],
Cell[243496, 5016, 454, 9, 26, "Message"],
Cell[243953, 5027, 454, 9, 26, "Message"],
Cell[244410, 5038, 454, 9, 26, "Message"],
Cell[244867, 5049, 487, 9, 26, "Message"],
Cell[245357, 5060, 454, 9, 26, "Message"],
Cell[245814, 5071, 454, 9, 26, "Message"],
Cell[246271, 5082, 454, 9, 26, "Message"],
Cell[246728, 5093, 487, 9, 26, "Message"],
Cell[247218, 5104, 456, 9, 26, "Message"],
Cell[247677, 5115, 454, 9, 26, "Message"],
Cell[248134, 5126, 454, 9, 26, "Message"],
Cell[248591, 5137, 487, 9, 26, "Message"],
Cell[249081, 5148, 456, 9, 26, "Message"],
Cell[249540, 5159, 456, 9, 26, "Message"],
Cell[249999, 5170, 454, 9, 26, "Message"],
Cell[250456, 5181, 487, 9, 26, "Message"],
Cell[250946, 5192, 454, 9, 26, "Message"],
Cell[251403, 5203, 454, 9, 26, "Message"],
Cell[251860, 5214, 454, 9, 26, "Message"],
Cell[252317, 5225, 487, 9, 26, "Message"],
Cell[252807, 5236, 456, 9, 26, "Message"],
Cell[253266, 5247, 454, 9, 26, "Message"],
Cell[253723, 5258, 487, 9, 26, "Message"],
Cell[254213, 5269, 456, 9, 26, "Message"],
Cell[254672, 5280, 456, 9, 26, "Message"],
Cell[255131, 5291, 456, 9, 26, "Message"],
Cell[255590, 5302, 487, 9, 26, "Message"],
Cell[256080, 5313, 456, 9, 26, "Message"],
Cell[256539, 5324, 454, 9, 26, "Message"],
Cell[256996, 5335, 454, 9, 26, "Message"],
Cell[257453, 5346, 489, 9, 26, "Message"],
Cell[257945, 5357, 1619, 25, 87, "Message"],
Cell[259567, 5384, 454, 9, 26, "Message"],
Cell[260024, 5395, 454, 9, 26, "Message"],
Cell[260481, 5406, 454, 9, 26, "Message"],
Cell[260938, 5417, 487, 9, 26, "Message"],
Cell[261428, 5428, 454, 9, 26, "Message"],
Cell[261885, 5439, 454, 9, 26, "Message"],
Cell[262342, 5450, 454, 9, 26, "Message"],
Cell[262799, 5461, 487, 9, 26, "Message"],
Cell[263289, 5472, 454, 9, 26, "Message"],
Cell[263746, 5483, 454, 9, 26, "Message"],
Cell[264203, 5494, 456, 9, 26, "Message"],
Cell[264662, 5505, 487, 9, 26, "Message"],
Cell[265152, 5516, 454, 9, 26, "Message"],
Cell[265609, 5527, 454, 9, 26, "Message"],
Cell[266066, 5538, 454, 9, 26, "Message"],
Cell[266523, 5549, 489, 9, 26, "Message"],
Cell[267015, 5560, 1619, 25, 87, "Message"],
Cell[268637, 5587, 456, 9, 26, "Message"],
Cell[269096, 5598, 454, 9, 26, "Message"],
Cell[269553, 5609, 456, 9, 26, "Message"],
Cell[270012, 5620, 487, 9, 26, "Message"],
Cell[270502, 5631, 454, 9, 26, "Message"],
Cell[270959, 5642, 454, 9, 26, "Message"],
Cell[271416, 5653, 456, 9, 26, "Message"],
Cell[271875, 5664, 487, 9, 26, "Message"],
Cell[272365, 5675, 454, 9, 26, "Message"],
Cell[272822, 5686, 452, 9, 26, "Message"],
Cell[273277, 5697, 456, 9, 26, "Message"],
Cell[273736, 5708, 489, 9, 26, "Message"],
Cell[274228, 5719, 456, 9, 26, "Message"],
Cell[274687, 5730, 453, 9, 26, "Message"],
Cell[275143, 5741, 454, 9, 26, "Message"],
Cell[275600, 5752, 486, 9, 26, "Message"],
Cell[276089, 5763, 454, 9, 26, "Message"],
Cell[276546, 5774, 454, 9, 26, "Message"],
Cell[277003, 5785, 456, 9, 26, "Message"],
Cell[277462, 5796, 487, 9, 26, "Message"],
Cell[277952, 5807, 454, 9, 26, "Message"],
Cell[278409, 5818, 454, 9, 26, "Message"],
Cell[278866, 5829, 454, 9, 26, "Message"],
Cell[279323, 5840, 487, 9, 26, "Message"],
Cell[279813, 5851, 453, 9, 26, "Message"],
Cell[280269, 5862, 456, 9, 26, "Message"],
Cell[280728, 5873, 454, 9, 26, "Message"],
Cell[281185, 5884, 487, 9, 26, "Message"],
Cell[281675, 5895, 454, 9, 26, "Message"],
Cell[282132, 5906, 454, 9, 26, "Message"],
Cell[282589, 5917, 454, 9, 26, "Message"],
Cell[283046, 5928, 107, 1, 26, "Message"],
Cell[283156, 5931, 454, 9, 26, "Message"],
Cell[283613, 5942, 456, 9, 26, "Message"],
Cell[284072, 5953, 456, 9, 26, "Message"],
Cell[284531, 5964, 107, 1, 26, "Message"],
Cell[284641, 5967, 454, 9, 26, "Message"],
Cell[285098, 5978, 456, 9, 26, "Message"],
Cell[285557, 5989, 453, 9, 26, "Message"],
Cell[286013, 6000, 487, 9, 26, "Message"],
Cell[286503, 6011, 454, 9, 26, "Message"],
Cell[286960, 6022, 454, 9, 26, "Message"],
Cell[287417, 6033, 456, 9, 26, "Message"],
Cell[287876, 6044, 487, 9, 26, "Message"],
Cell[288366, 6055, 454, 9, 26, "Message"],
Cell[288823, 6066, 456, 9, 26, "Message"],
Cell[289282, 6077, 454, 9, 26, "Message"],
Cell[289739, 6088, 487, 9, 26, "Message"],
Cell[290229, 6099, 416, 8, 26, "Message"],
Cell[290648, 6109, 454, 9, 26, "Message"],
Cell[291105, 6120, 456, 9, 26, "Message"],
Cell[291564, 6131, 454, 9, 26, "Message"],
Cell[292021, 6142, 487, 9, 26, "Message"],
Cell[292511, 6153, 454, 9, 26, "Message"],
Cell[292968, 6164, 454, 9, 26, "Message"],
Cell[293425, 6175, 454, 9, 26, "Message"],
Cell[293882, 6186, 489, 9, 26, "Message"],
Cell[294374, 6197, 452, 9, 26, "Message"],
Cell[294829, 6208, 454, 9, 26, "Message"],
Cell[295286, 6219, 454, 9, 26, "Message"],
Cell[295743, 6230, 486, 9, 26, "Message"],
Cell[296232, 6241, 454, 9, 26, "Message"],
Cell[296689, 6252, 454, 9, 26, "Message"],
Cell[297146, 6263, 454, 9, 26, "Message"],
Cell[297603, 6274, 487, 9, 26, "Message"],
Cell[298093, 6285, 454, 9, 26, "Message"],
Cell[298550, 6296, 454, 9, 26, "Message"],
Cell[299007, 6307, 454, 9, 26, "Message"],
Cell[299464, 6318, 487, 9, 26, "Message"],
Cell[299954, 6329, 454, 9, 26, "Message"],
Cell[300411, 6340, 454, 9, 26, "Message"],
Cell[300868, 6351, 109, 1, 26, "Message"],
Cell[300980, 6354, 487, 9, 26, "Message"],
Cell[301470, 6365, 1619, 25, 37, "Message"],
Cell[303092, 6392, 1595, 24, 37, "Message"],
Cell[304690, 6418, 107, 1, 26, "Message"],
Cell[304800, 6421, 454, 9, 26, "Message"],
Cell[305257, 6432, 454, 9, 26, "Message"],
Cell[305714, 6443, 489, 9, 26, "Message"],
Cell[306206, 6454, 107, 1, 26, "Message"],
Cell[306316, 6457, 454, 9, 26, "Message"],
Cell[306773, 6468, 454, 9, 26, "Message"],
Cell[307230, 6479, 487, 9, 26, "Message"],
Cell[307720, 6490, 109, 1, 26, "Message"],
Cell[307832, 6493, 454, 9, 26, "Message"],
Cell[308289, 6504, 454, 9, 26, "Message"],
Cell[308746, 6515, 489, 9, 26, "Message"],
Cell[309238, 6526, 456, 9, 26, "Message"],
Cell[309697, 6537, 454, 9, 26, "Message"],
Cell[310154, 6548, 454, 9, 26, "Message"],
Cell[310611, 6559, 487, 9, 26, "Message"],
Cell[311101, 6570, 543, 10, 26, "Message"],
Cell[311647, 6582, 1265, 20, 39, "Message"],
Cell[312915, 6604, 456, 9, 26, "Message"],
Cell[313374, 6615, 109, 1, 26, "Message"],
Cell[313486, 6618, 453, 9, 26, "Message"],
Cell[313942, 6629, 487, 9, 26, "Message"],
Cell[314432, 6640, 1265, 20, 39, "Message"],
Cell[315700, 6662, 109, 1, 26, "Message"],
Cell[315812, 6665, 454, 9, 26, "Message"],
Cell[316269, 6676, 454, 9, 26, "Message"],
Cell[316726, 6687, 489, 9, 26, "Message"],
Cell[317218, 6698, 1785, 28, 37, "Message"],
Cell[319006, 6728, 454, 9, 26, "Message"],
Cell[319463, 6739, 456, 9, 26, "Message"],
Cell[319922, 6750, 454, 9, 26, "Message"],
Cell[320379, 6761, 486, 9, 26, "Message"],
Cell[320868, 6772, 1265, 20, 39, "Message"],
Cell[322136, 6794, 456, 9, 26, "Message"],
Cell[322595, 6805, 456, 9, 26, "Message"],
Cell[323054, 6816, 107, 1, 26, "Message"],
Cell[323164, 6819, 487, 9, 26, "Message"],
Cell[323654, 6830, 1265, 20, 39, "Message"],
Cell[324922, 6852, 453, 9, 26, "Message"],
Cell[325378, 6863, 107, 1, 26, "Message"],
Cell[325488, 6866, 454, 9, 26, "Message"],
Cell[325945, 6877, 487, 9, 26, "Message"],
Cell[326435, 6888, 1265, 20, 39, "Message"],
Cell[327703, 6910, 454, 9, 26, "Message"],
Cell[328160, 6921, 453, 9, 26, "Message"],
Cell[328616, 6932, 453, 9, 26, "Message"],
Cell[329072, 6943, 489, 9, 26, "Message"],
Cell[329564, 6954, 1265, 20, 39, "Message"],
Cell[330832, 6976, 454, 9, 26, "Message"],
Cell[331289, 6987, 456, 9, 26, "Message"],
Cell[331748, 6998, 456, 9, 26, "Message"],
Cell[332207, 7009, 487, 9, 26, "Message"],
Cell[332697, 7020, 1787, 28, 37, "Message"],
Cell[334487, 7050, 454, 9, 26, "Message"],
Cell[334944, 7061, 454, 9, 26, "Message"],
Cell[335401, 7072, 456, 9, 26, "Message"],
Cell[335860, 7083, 487, 9, 26, "Message"],
Cell[336350, 7094, 1605, 25, 37, "Message"],
Cell[337958, 7121, 454, 9, 26, "Message"],
Cell[338415, 7132, 454, 9, 26, "Message"],
Cell[338872, 7143, 454, 9, 26, "Message"],
Cell[339329, 7154, 487, 9, 26, "Message"],
Cell[339819, 7165, 454, 9, 26, "Message"],
Cell[340276, 7176, 454, 9, 26, "Message"],
Cell[340733, 7187, 454, 9, 26, "Message"],
Cell[341190, 7198, 489, 9, 26, "Message"],
Cell[341682, 7209, 456, 9, 26, "Message"],
Cell[342141, 7220, 454, 9, 26, "Message"],
Cell[342598, 7231, 456, 9, 26, "Message"],
Cell[343057, 7242, 487, 9, 26, "Message"],
Cell[343547, 7253, 454, 9, 26, "Message"],
Cell[344004, 7264, 454, 9, 26, "Message"],
Cell[344461, 7275, 454, 9, 26, "Message"],
Cell[344918, 7286, 487, 9, 26, "Message"],
Cell[345408, 7297, 454, 9, 26, "Message"],
Cell[345865, 7308, 454, 9, 26, "Message"],
Cell[346322, 7319, 454, 9, 26, "Message"],
Cell[346779, 7330, 489, 9, 26, "Message"],
Cell[347271, 7341, 543, 10, 26, "Message"],
Cell[347817, 7353, 1267, 20, 39, "Message"],
Cell[349087, 7375, 456, 9, 26, "Message"],
Cell[349546, 7386, 454, 9, 26, "Message"],
Cell[350003, 7397, 454, 9, 26, "Message"],
Cell[350460, 7408, 487, 9, 26, "Message"],
Cell[350950, 7419, 1265, 20, 39, "Message"],
Cell[352218, 7441, 456, 9, 26, "Message"],
Cell[352677, 7452, 454, 9, 26, "Message"],
Cell[353134, 7463, 454, 9, 26, "Message"],
Cell[353591, 7474, 487, 9, 26, "Message"],
Cell[354081, 7485, 1785, 28, 37, "Message"],
Cell[355869, 7515, 454, 9, 26, "Message"],
Cell[356326, 7526, 456, 9, 26, "Message"],
Cell[356785, 7537, 454, 9, 26, "Message"],
Cell[357242, 7548, 487, 9, 26, "Message"],
Cell[357732, 7559, 1267, 20, 39, "Message"],
Cell[359002, 7581, 456, 9, 26, "Message"],
Cell[359461, 7592, 454, 9, 26, "Message"],
Cell[359918, 7603, 456, 9, 26, "Message"],
Cell[360377, 7614, 487, 9, 26, "Message"],
Cell[360867, 7625, 1267, 20, 39, "Message"],
Cell[362137, 7647, 456, 9, 26, "Message"],
Cell[362596, 7658, 456, 9, 26, "Message"],
Cell[363055, 7669, 454, 9, 26, "Message"],
Cell[363512, 7680, 487, 9, 26, "Message"],
Cell[364002, 7691, 1265, 20, 39, "Message"],
Cell[365270, 7713, 454, 9, 26, "Message"],
Cell[365727, 7724, 454, 9, 26, "Message"],
Cell[366184, 7735, 454, 9, 26, "Message"],
Cell[366641, 7746, 487, 9, 26, "Message"],
Cell[367131, 7757, 1265, 20, 39, "Message"],
Cell[368399, 7779, 454, 9, 26, "Message"],
Cell[368856, 7790, 454, 9, 26, "Message"],
Cell[369313, 7801, 454, 9, 26, "Message"],
Cell[369770, 7812, 487, 9, 26, "Message"],
Cell[370260, 7823, 1785, 28, 37, "Message"],
Cell[372048, 7853, 453, 9, 26, "Message"],
Cell[372504, 7864, 454, 9, 26, "Message"],
Cell[372961, 7875, 456, 9, 26, "Message"],
Cell[373420, 7886, 487, 9, 26, "Message"],
Cell[373910, 7897, 1605, 25, 37, "Message"],
Cell[375518, 7924, 456, 9, 26, "Message"],
Cell[375977, 7935, 454, 9, 26, "Message"],
Cell[376434, 7946, 456, 9, 26, "Message"],
Cell[376893, 7957, 530, 12, 26, "Message"],
Cell[377426, 7971, 489, 9, 26, "Message"],
Cell[377918, 7982, 454, 9, 26, "Message"],
Cell[378375, 7993, 454, 9, 26, "Message"],
Cell[378832, 8004, 454, 9, 26, "Message"],
Cell[379289, 8015, 487, 9, 26, "Message"],
Cell[379779, 8026, 454, 9, 26, "Message"],
Cell[380236, 8037, 456, 9, 26, "Message"],
Cell[380695, 8048, 456, 9, 26, "Message"],
Cell[381154, 8059, 489, 9, 26, "Message"],
Cell[381646, 8070, 418, 8, 26, "Message"],
Cell[382067, 8080, 456, 9, 26, "Message"],
Cell[382526, 8091, 454, 9, 26, "Message"],
Cell[382983, 8102, 456, 9, 26, "Message"],
Cell[383442, 8113, 489, 9, 26, "Message"],
Cell[383934, 8124, 454, 9, 26, "Message"],
Cell[384391, 8135, 456, 9, 26, "Message"],
Cell[384850, 8146, 454, 9, 26, "Message"],
Cell[385307, 8157, 487, 9, 26, "Message"],
Cell[385797, 8168, 453, 9, 26, "Message"],
Cell[386253, 8179, 456, 9, 26, "Message"],
Cell[386712, 8190, 451, 9, 26, "Message"],
Cell[387166, 8201, 487, 9, 26, "Message"],
Cell[387656, 8212, 456, 9, 26, "Message"],
Cell[388115, 8223, 456, 9, 26, "Message"],
Cell[388574, 8234, 453, 9, 26, "Message"],
Cell[389030, 8245, 487, 9, 26, "Message"],
Cell[389520, 8256, 456, 9, 26, "Message"],
Cell[389979, 8267, 454, 9, 26, "Message"],
Cell[390436, 8278, 454, 9, 26, "Message"],
Cell[390893, 8289, 487, 9, 26, "Message"],
Cell[391383, 8300, 454, 9, 26, "Message"],
Cell[391840, 8311, 454, 9, 26, "Message"],
Cell[392297, 8322, 454, 9, 26, "Message"],
Cell[392754, 8333, 487, 9, 26, "Message"],
Cell[393244, 8344, 1619, 25, 37, "Message"],
Cell[394866, 8371, 1593, 24, 37, "Message"],
Cell[396462, 8397, 456, 9, 26, "Message"],
Cell[396921, 8408, 454, 9, 26, "Message"],
Cell[397378, 8419, 454, 9, 26, "Message"],
Cell[397835, 8430, 487, 9, 26, "Message"],
Cell[398325, 8441, 454, 9, 26, "Message"],
Cell[398782, 8452, 454, 9, 26, "Message"],
Cell[399239, 8463, 454, 9, 26, "Message"]
}, Closed]],
Cell[CellGroupData[{
Cell[399730, 8477, 79, 2, 25, "Input"],
Cell[399812, 8481, 581, 18, 76, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[400430, 8504, 266, 7, 33, "Input"],
Cell[400699, 8513, 590, 17, 76, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[401338, 8536, 554, 10, 45, "Section"],
Cell[CellGroupData[{
Cell[401917, 8550, 278, 4, 42, "Subsection"],
Cell[CellGroupData[{
Cell[402220, 8558, 949, 27, 72, "Input"],
Cell[403172, 8587, 2450, 37, 87, "Message"]
}, Open  ]]
}, Open  ]],
Cell[405649, 8628, 545, 13, 91, "Input"],
Cell[CellGroupData[{
Cell[406219, 8645, 34, 0, 33, "Input"],
Cell[406256, 8647, 585, 10, 33, "Output"]
}, Open  ]],
Cell[406856, 8660, 619, 13, 33, "Input"],
Cell[407478, 8675, 689, 14, 33, "Input"],
Cell[408170, 8691, 3505, 93, 433, "Input"],
Cell[411678, 8786, 131, 2, 33, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[411846, 8793, 604, 11, 45, "Section"],
Cell[CellGroupData[{
Cell[412475, 8808, 898, 22, 72, "Input"],
Cell[413376, 8832, 5337, 77, 26, "Message"]
}, Open  ]],
Cell[418728, 8912, 3658, 70, 172, "Input"],
Cell[422389, 8984, 704, 18, 53, "Input"],
Cell[423096, 9004, 1126, 18, 53, "Input"],
Cell[424225, 9024, 707, 15, 57, "Input"],
Cell[424935, 9041, 429, 13, 57, "Input"],
Cell[425367, 9056, 423, 13, 53, "Input"],
Cell[425793, 9071, 394, 11, 53, "Input"],
Cell[426190, 9084, 436, 10, 53, "Input"],
Cell[426629, 9096, 1594, 32, 62, "Input"],
Cell[428226, 9130, 1282, 25, 91, "Input"],
Cell[429511, 9157, 357, 10, 53, "Input"],
Cell[429871, 9169, 915, 18, 53, "Input"],
Cell[430789, 9189, 590, 16, 53, "Input"],
Cell[431382, 9207, 427, 11, 53, "Input"],
Cell[431812, 9220, 354, 10, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[432203, 9235, 386, 5, 83, "Section"],
Cell[CellGroupData[{
Cell[432614, 9244, 415, 5, 42, "Subsection"],
Cell[433032, 9251, 347, 8, 51, "Text"],
Cell[433382, 9261, 760, 15, 72, "Input"],
Cell[434145, 9278, 4420, 107, 601, "Input"],
Cell[438568, 9387, 821, 13, 72, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[439426, 9405, 465, 6, 31, "Subsection"],
Cell[439894, 9413, 264, 7, 70, "Text"],
Cell[440161, 9422, 3080, 71, 244, "Input"],
Cell[CellGroupData[{
Cell[443266, 9497, 299, 8, 58, "Input"],
Cell[443568, 9507, 493, 7, 70, "Output"]
}, Open  ]],
Cell[444076, 9517, 277, 7, 70, "Text"],
Cell[CellGroupData[{
Cell[444378, 9528, 488, 8, 33, "Input"],
Cell[444869, 9538, 5819, 81, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[450725, 9624, 526, 9, 33, "Input"],
Cell[451254, 9635, 5821, 81, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[457112, 9721, 265, 4, 33, "Input"],
Cell[457380, 9727, 514, 8, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[457931, 9740, 385, 8, 38, "Input"],
Cell[458319, 9750, 492, 7, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[458848, 9762, 98, 1, 33, "Input"],
Cell[458949, 9765, 376, 5, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[459362, 9775, 94, 1, 33, "Input"],
Cell[459459, 9778, 382, 6, 70, "Output"]
}, Open  ]],
Cell[459856, 9787, 191, 6, 70, "Text"],
Cell[460050, 9795, 4143, 87, 338, "Input"],
Cell[464196, 9884, 311, 5, 33, "Input"],
Cell[CellGroupData[{
Cell[464532, 9893, 475, 14, 72, "Input"],
Cell[465010, 9909, 1733, 24, 70, "Output"],
Cell[466746, 9935, 1736, 24, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[468519, 9964, 145, 2, 33, "Input"],
Cell[468667, 9968, 773, 11, 70, "Output"]
}, Open  ]],
Cell[469455, 9982, 229, 7, 70, "Text"],
Cell[469687, 9991, 763, 13, 33, "Input"],
Cell[470453, 10006, 238, 7, 70, "Text"],
Cell[CellGroupData[{
Cell[470716, 10017, 7035, 175, 452, "Input"],
Cell[477754, 10194, 8212, 134, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[486015, 10334, 126, 2, 31, "Subsection"],
Cell[486144, 10338, 1340, 27, 129, "Input"],
Cell[487487, 10367, 1307, 28, 148, "Input"],
Cell[488797, 10397, 3122, 61, 129, "Input"],
Cell[491922, 10460, 818, 12, 51, "Text"],
Cell[492743, 10474, 1342, 22, 33, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[494122, 10501, 356, 5, 31, "Subsection"],
Cell[494481, 10508, 270, 6, 51, "Text"],
Cell[494754, 10516, 638, 14, 33, "Input"],
Cell[495395, 10532, 275, 6, 51, "Text"],
Cell[495673, 10540, 1162, 19, 33, "Input"],
Cell[496838, 10561, 171, 5, 51, "Text"],
Cell[497012, 10568, 788, 16, 33, "Input"],
Cell[497803, 10586, 185, 5, 51, "Text"],
Cell[497991, 10593, 772, 16, 33, "Input"],
Cell[498766, 10611, 117, 4, 51, "Text"],
Cell[498886, 10617, 187, 2, 32, "Text"],
Cell[499076, 10621, 125, 4, 51, "Text"],
Cell[499204, 10627, 175, 2, 32, "Text"],
Cell[499382, 10631, 514, 11, 33, "Input"],
Cell[CellGroupData[{
Cell[499921, 10646, 380, 7, 33, "Input"],
Cell[500304, 10655, 3506, 50, 70, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[503859, 10711, 457, 6, 31, "Subsection"],
Cell[504319, 10719, 822, 14, 70, "Text"],
Cell[CellGroupData[{
Cell[505166, 10737, 6108, 133, 327, "Input"],
Cell[511277, 10872, 6345, 97, 535, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[517659, 10974, 626, 14, 33, "Input"],
Cell[518288, 10990, 4672, 65, 33, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[523009, 11061, 422, 6, 42, "Subsection"],
Cell[523434, 11069, 172, 5, 51, "Text"],
Cell[523609, 11076, 75, 0, 32, "Text"],
Cell[523687, 11078, 2521, 55, 72, "Input"],
Cell[526211, 11135, 1335, 21, 33, "Input"],
Cell[527549, 11158, 107, 4, 51, "Text"],
Cell[527659, 11164, 755, 12, 32, "Text"],
Cell[528417, 11178, 782, 14, 33, "Input"],
Cell[529202, 11194, 354, 10, 33, "Input"],
Cell[529559, 11206, 558, 10, 33, "Input"],
Cell[CellGroupData[{
Cell[530142, 11220, 249, 5, 33, "Input"],
Cell[530394, 11227, 3475, 49, 25, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[533918, 11282, 495, 7, 42, "Subsection"],
Cell[534416, 11291, 190, 2, 32, "Text"],
Cell[534609, 11295, 262, 5, 32, "Text"],
Cell[534874, 11302, 1481, 30, 72, "Input"],
Cell[536358, 11334, 119, 2, 32, "Text"],
Cell[536480, 11338, 1630, 28, 91, "Input"],
Cell[538113, 11368, 1386, 25, 145, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[539536, 11398, 177, 2, 42, "Subsection"],
Cell[CellGroupData[{
Cell[539738, 11404, 430, 10, 72, "Input"],
Cell[540171, 11416, 5200, 74, 70, "Output"],
Cell[545374, 11492, 7319, 146, 70, "Output"],
Cell[552696, 11640, 7604, 150, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[560337, 11795, 122, 2, 33, "Input"],
Cell[560462, 11799, 4288, 64, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[564787, 11868, 398, 8, 33, "Input"],
Cell[565188, 11878, 396, 8, 70, "Message"],
Cell[565587, 11888, 489, 9, 70, "Message"],
Cell[566079, 11899, 3151, 45, 70, "Output"],
Cell[CellGroupData[{
Cell[569255, 11948, 2217, 37, 33, "Input"],
Cell[571475, 11987, 3369, 50, 70, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[574905, 12044, 199, 3, 31, "Subsection"],
Cell[575107, 12049, 4373, 97, 198, "Code"],
Cell[CellGroupData[{
Cell[579505, 12150, 149, 2, 33, "Input"],
Cell[579657, 12154, 716, 10, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[580410, 12169, 573, 13, 33, "Input"],
Cell[580986, 12184, 6161, 95, 356, "Output"]
}, Open  ]],
Cell[587162, 12282, 395, 7, 32, "Text"],
Cell[CellGroupData[{
Cell[587582, 12293, 613, 15, 33, "Input"],
Cell[588198, 12310, 3736, 64, 441, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[591983, 12380, 154, 2, 42, "Subsection"],
Cell[CellGroupData[{
Cell[592162, 12386, 1062, 20, 33, "Input"],
Cell[593227, 12408, 10172, 168, 291, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[603436, 12581, 372, 8, 33, "Input"],
Cell[603811, 12591, 2887, 41, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[606735, 12637, 147, 3, 33, "Input"],
Cell[606885, 12642, 136, 2, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[607058, 12649, 1143, 22, 33, "Input"],
Cell[608204, 12673, 11071, 177, 292, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[619312, 12855, 1249, 24, 33, "Input"],
Cell[620564, 12881, 7762, 123, 294, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[628363, 13009, 1016, 18, 33, "Input"],
Cell[629382, 13029, 10928, 174, 304, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[640359, 13209, 255, 6, 33, "Input"],
Cell[640617, 13217, 7236, 124, 291, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[647890, 13346, 384, 9, 33, "Input"],
Cell[648277, 13357, 8420, 143, 304, "Output"]
}, Open  ]],
Cell[656712, 13503, 69, 1, 33, "Input"],
Cell[CellGroupData[{
Cell[656806, 13508, 198, 3, 42, "Subsection"],
Cell[657007, 13513, 1081, 16, 32, "Text"],
Cell[658091, 13531, 862, 18, 33, "Input"],
Cell[658956, 13551, 846, 22, 53, "Input"],
Cell[659805, 13575, 410, 5, 32, "Text"],
Cell[660218, 13582, 941, 14, 51, "Text"],
Cell[661162, 13598, 1258, 25, 33, "Input"],
Cell[662423, 13625, 229, 6, 33, "Input"],
Cell[CellGroupData[{
Cell[662677, 13635, 177, 4, 33, "Input"],
Cell[662857, 13641, 449, 7, 33, "Output"]
}, Open  ]],
Cell[663321, 13651, 380, 7, 33, "Input"],
Cell[CellGroupData[{
Cell[663726, 13662, 1231, 29, 72, "Input"],
Cell[664960, 13693, 5252, 85, 297, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[670249, 13783, 3629, 77, 224, "Input"],
Cell[673881, 13862, 19455, 318, 300, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[693373, 14185, 267, 6, 33, "Input"],
Cell[693643, 14193, 15563, 261, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[709243, 14459, 270, 6, 33, "Input"],
Cell[709516, 14467, 8661, 149, 302, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[718214, 14621, 2602, 61, 148, "Input"],
Cell[720819, 14684, 7412, 112, 285, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[728280, 14802, 201, 3, 42, "Subsection"],
Cell[CellGroupData[{
Cell[728506, 14809, 4328, 116, 205, "Input"],
Cell[732837, 14927, 724, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[733598, 14946, 4373, 116, 205, "Input"],
Cell[737974, 15064, 725, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[738736, 15083, 4373, 116, 205, "Input"],
Cell[743112, 15201, 734, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[743883, 15220, 4252, 109, 205, "Input"],
Cell[748138, 15331, 736, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[748911, 15350, 4374, 116, 205, "Input"],
Cell[753288, 15468, 730, 13, 47, "Message"],
Cell[754021, 15483, 730, 13, 47, "Message"],
Cell[754754, 15498, 732, 13, 47, "Message"],
Cell[755489, 15513, 924, 16, 26, "Message"],
Cell[756416, 15531, 727, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[757180, 15550, 1072, 29, 91, "Input"],
Cell[758255, 15581, 722, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[759014, 15600, 1102, 28, 91, "Input"],
Cell[760119, 15630, 726, 14, 26, "Message"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[760894, 15650, 1350, 27, 53, "Input"],
Cell[762247, 15679, 729, 14, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[763013, 15698, 1453, 28, 72, "Input"],
Cell[764469, 15728, 732, 14, 26, "Message"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
